1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index a80383467d3..5d94a2aa9ad 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -51,12 +51,12 @@ BODY should be a list of lisp expressions."
  ;; depend on backquote.el.
  (list 'function (cons 'lambda cdr)))
-(defmacro push (value listname)
+(defmacro push (newelt listname)
-  "Add VALUE to the list which is the value of LISTNAME.
+  "Add NEWELT to the list which is the value of LISTNAME.
-This is equivalent to (setq LISTNAME (cons VALUE LISTNAME)).
+This is equivalent to (setq LISTNAME (cons NEWELT LISTNAME)).
 LISTNAME must be a symbol."
  (list 'setq list
-        (list 'cons value list)))
+        (list 'cons newelt list)))
 (defmacro pop (listname)
  "Return the first element of LISTNAME's value, and remove it from the list.

diff --git a/lisp/subr.el b/lisp/subr.el index a80383467d3..5d94a2aa9ad 100644 --- a/lisp/subr.el +++ b/lisp/subr.el
@@ -51,12 +51,12 @@ BODY should be a list of lisp expressions."
51	;; depend on backquote.el.	51	;; depend on backquote.el.
52	(list 'function (cons 'lambda cdr)))	52	(list 'function (cons 'lambda cdr)))
53		53
54	(defmacro push (value listname)	54	(defmacro push (newelt listname)
55	"Add VALUE to the list which is the value of LISTNAME.	55	"Add NEWELT to the list which is the value of LISTNAME.
56	This is equivalent to (setq LISTNAME (cons VALUE LISTNAME)).	56	This is equivalent to (setq LISTNAME (cons NEWELT LISTNAME)).
57	LISTNAME must be a symbol."	57	LISTNAME must be a symbol."
58	(list 'setq list	58	(list 'setq list
59	(list 'cons value list)))	59	(list 'cons newelt list)))
60		60
61	(defmacro pop (listname)	61	(defmacro pop (listname)
62	"Return the first element of LISTNAME's value, and remove it from the list.	62	"Return the first element of LISTNAME's value, and remove it from the list.