diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 7b22fa8483a..fceabf8c2e3 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el | |||
| @@ -129,9 +129,12 @@ The return value is the decremented value of PLACE." | |||
| 129 | (list 'cl-callf '- place (or x 1)))) | 129 | (list 'cl-callf '- place (or x 1)))) |
| 130 | 130 | ||
| 131 | (defmacro cl-pushnew (x place &rest keys) | 131 | (defmacro cl-pushnew (x place &rest keys) |
| 132 | "(cl-pushnew X PLACE): insert X at the head of the list if not already there. | 132 | "Add X to the list stored in PLACE unless already X is already in the list. |
| 133 | Like (push X PLACE), except that the list is unmodified if X is `eql' to | 133 | PLACE is a generalized variable that stores a list. |
| 134 | an element already on the list. | 134 | |
| 135 | Like (push X PLACE), except that PLACE is unmodified if X is | ||
| 136 | `eql' to an element already in PLACE list. | ||
| 137 | |||
| 135 | \nKeywords supported: :test :test-not :key | 138 | \nKeywords supported: :test :test-not :key |
| 136 | \n(fn X PLACE [KEYWORD VALUE]...)" | 139 | \n(fn X PLACE [KEYWORD VALUE]...)" |
| 137 | (declare (debug | 140 | (declare (debug |