diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2006-09-11 11:15:54 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2006-09-11 11:15:54 +0000 |
| commit | e027c6e48d4c199a70366a951b3c771e16f6a486 (patch) | |
| tree | 9c49844f6f5faeadd3db2aef441773188aa01861 /lisp/emacs-lisp/cl.el | |
| parent | bcd8e1a907a3d055f4b1152231f15cf5a21fba5e (diff) | |
| download | emacs-e027c6e48d4c199a70366a951b3c771e16f6a486.tar.gz | |
(pushnew): Add missing `,'.
Diffstat (limited to 'lisp/emacs-lisp/cl.el')
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |