]> git.eshelyaron.com Git - emacs.git/commitdiff
Make macroexpand of `push' slightly less confusing
authorLars Ingebrigtsen <larsi@gnus.org>
Sat, 26 Sep 2020 15:05:17 +0000 (17:05 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Sat, 26 Sep 2020 15:05:17 +0000 (17:05 +0200)
* lisp/subr.el (push): Use a symbol with a different name to make
macroexpand look slightly less confusing (bug#43601).

lisp/subr.el

index fba31b7cf75786ee2700bbf77524bf0a797ad7c4..dd797021f1c094d2bdace7d22206323642cdb4c3 100644 (file)
@@ -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.