(pushnew): Add missing `,'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index def6ac8bdfa31f85e74294a4fddf0654eec4cf13..5f3405576b785c2598e4f975ac255f2e9b1e87c8 100644 (file)
--- 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 9db3fc027d6e9211cdad7958fea048af82d71af6..53bec05ddc373a9e8f4cb39aa3dcc287481daa59 100644 (file)
--- 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)))