# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 936105166 0
# Node ID 6762c8a75fd7075c0707be6733ddf8acc89df6ab
# Parent  637af9b4fdbbc48da7a21310f48b80f1ce15e330
(push): Fix typo.

diff -r 637af9b4fdbb -r 6762c8a75fd7 lisp/subr.el
--- a/lisp/subr.el	Mon Aug 30 23:58:18 1999 +0000
+++ b/lisp/subr.el	Tue Aug 31 13:12:46 1999 +0000
@@ -55,8 +55,8 @@
   "Add NEWELT to the list which is the value of LISTNAME.
 This is equivalent to (setq LISTNAME (cons NEWELT LISTNAME)).
 LISTNAME must be a symbol."
-  (list 'setq list
-	(list 'cons newelt list)))
+  (list 'setq listname
+	(list 'cons newelt listname)))
 
 (defmacro pop (listname)
   "Return the first element of LISTNAME's value, and remove it from the list.