From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 1 Mar 2025 01:05:28 +0000 (+0100)
Subject: Make '(setf (process-get ...) VAL)' return VAL
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c19c6be2b949e36d26d05b697e9e9c8390d0f47f;p=emacs.git

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)

(cherry picked from commit 77f597ee3de04f6a8dee27b5a5f601911d74c6f5)
---

diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 84b301d2b0a..bf3ced9eb4a 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -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