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

[gnu-emacs] / lisp / image.el

diff --git a/lisp/image.el b/lisp/image.el
index 96afa98bb3e091dc3d7f4013e7bee8847a3a78f7..2ae642a3e32b276adc32ba2eb1c67eadaa96169e 100644 (file)
--- 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.