From: David Ponce <da_vid@orange.fr>
Date: Sun, 2 Mar 2025 01:17:12 +0000 (+0100)
Subject: Correctly return passed value from widget-put
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10e8d57d5de51e0481c68db3bb4d78c89ca7e202;p=emacs.git

Correctly return passed value from widget-put

* lisp/wid-edit.el (widget-get-indirect): Return passed value to stay
consistent with old C implementation.  (Bug#76664)

(cherry picked from commit 5b13541858707a5cbb857b257e00848430d87c47)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 6db00397baf..558769834df 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -625,7 +625,8 @@ and saves that overlay under the :inactive property for WIDGET."
 (defun widget-put (widget property value)
   "In WIDGET, set PROPERTY to VALUE.
 The value can later be retrieved with `widget-get'."
-  (setcdr widget (plist-put (cdr widget) property value)))
+  (setcdr widget (plist-put (cdr widget) property value))
+  value)
 
 ;;;###autoload
 (defun widget-get (widget property)