From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 23 Feb 2016 01:26:30 +0000 (+1100)
Subject: Make (setf (image-property ...)) return VALUE
X-Git-Tag: emacs-26.0.90~2513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad1879b7be9f641250e7616d4630eb29a3fa6a52;p=emacs.git

Make (setf (image-property ...)) return VALUE

* lisp/image.el (image--set-property): Return VALUE, not IMAGE.
---

diff --git a/lisp/image.el b/lisp/image.el
index 96afa98bb3e..2ae642a3e32 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -448,7 +448,7 @@ Internal use only."
           (setq image (cddr image))))
     ;; Just enter the new value.
     (plist-put (cdr image) property value))
-  image)
+  value)
 
 (defun image-property (image property)
   "Return the value of PROPERTY in IMAGE.