Make '(setf (process-get ...) VAL)' return VAL

* lisp/emacs-lisp/gv.el (process-get): Return only the last value
when set as a generalized variable.  (Bug#76643)
This commit is contained in:
Stefan Kangas 2025-03-01 02:05:28 +01:00
parent 1cfbbcfaf6
commit 77f597ee3d

View file

@ -406,7 +406,7 @@ See also `incf'."
(gv-define-simple-setter process-buffer set-process-buffer)
(gv-define-simple-setter process-filter set-process-filter)
(gv-define-simple-setter process-sentinel set-process-sentinel)
(gv-define-simple-setter process-get process-put)
(gv-define-simple-setter process-get process-put 'fix)
(gv-define-simple-setter window-parameter set-window-parameter)
(gv-define-setter window-buffer (v &optional w)
(macroexp-let2 nil v v