From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 26 Sep 2020 15:05:17 +0000 (+0200)
Subject: Make macroexpand of `push' slightly less confusing
X-Git-Tag: emacs-28.0.90~5868
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b6f5642274b5b9ca0ad1b2e0e673d92b01fab6e;p=emacs.git

Make macroexpand of `push' slightly less confusing

* lisp/subr.el (push): Use a symbol with a different name to make
macroexpand look slightly less confusing (bug#43601).
---

diff --git a/lisp/subr.el b/lisp/subr.el
index fba31b7cf75..dd797021f1c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -193,9 +193,9 @@ except that PLACE is evaluated only once (after NEWELT)."
       (list 'setq place
             (list 'cons newelt place))
     (require 'macroexp)
-    (macroexp-let2 macroexp-copyable-p v newelt
+    (macroexp-let2 macroexp-copyable-p x newelt
       (gv-letplace (getter setter) place
-        (funcall setter `(cons ,v ,getter))))))
+        (funcall setter `(cons ,x ,getter))))))
 
 (defmacro pop (place)
   "Return the first element of PLACE's value, and remove it from the list.