From 9b6f5642274b5b9ca0ad1b2e0e673d92b01fab6e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 26 Sep 2020 17:05:17 +0200 Subject: [PATCH] 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). --- lisp/subr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.39.5