diff options
| author | Lars Ingebrigtsen | 2019-08-23 06:12:44 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-23 06:12:44 +0200 |
| commit | e7d3ddf689300bdcccbd1762cf3387ceb17505a1 (patch) | |
| tree | c3aa5688f342893132e6115022040adb4047f473 | |
| parent | a179209678f009e72f7d28a80e026afaa3076d1d (diff) | |
| download | emacs-e7d3ddf689300bdcccbd1762cf3387ceb17505a1.tar.gz emacs-e7d3ddf689300bdcccbd1762cf3387ceb17505a1.zip | |
Clarify doc string of cl-pushnew
* lisp/emacs-lisp/cl-lib.el (cl-pushnew): Clarify doc string
(bug#37016).
| -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 |