[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5b135418587 1/2: Correctly return passed value from widget-put
From: |
Stefan Kangas |
Subject: |
master 5b135418587 1/2: Correctly return passed value from widget-put |
Date: |
Sat, 1 Mar 2025 20:20:41 -0500 (EST) |
branch: master
commit 5b13541858707a5cbb857b257e00848430d87c47
Author: David Ponce <da_vid@orange.fr>
Commit: Stefan Kangas <stefankangas@gmail.com>
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)
---
lisp/wid-edit.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index d6fd1156123..ff6550e852f 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)