From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Mon, 11 Sep 2006 11:15:54 +0000 (+0000)
Subject: (pushnew): Add missing `,'.
X-Git-Tag: emacs-pretest-22.0.90~619
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e027c6e48d4c199a70366a951b3c771e16f6a486;p=emacs.git

(pushnew): Add missing `,'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index def6ac8bdfa..5f3405576b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-11  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* emacs-lisp/cl.el (pushnew): Add missing `,'.
+
 2006-09-11  David Kastrup  <dak@gnu.org>
 
 	* help.el (string-key-binding, describe-key-briefly)
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 9db3fc027d6..53bec05ddc3 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -160,7 +160,7 @@ an element already on the list.
   (if (symbolp place)
       (if (null keys)
 	  `(let ((pushnew-internal ,place))
-	     (add-to-list 'pushnew-internal x nil 'eql)
+	     (add-to-list 'pushnew-internal ,x nil 'eql)
 	     (setq ,place pushnew-internal))
 	(list 'setq place (list* 'adjoin x place keys)))
     (list* 'callf2 'adjoin x place keys)))