From ad1879b7be9f641250e7616d4630eb29a3fa6a52 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 23 Feb 2016 12:26:30 +1100
Subject: [PATCH] Make (setf (image-property ...)) return VALUE

* lisp/image.el (image--set-property): Return VALUE, not IMAGE.
---
 lisp/image.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.
-- 
2.39.5