diff options
| author | Jeremy Bryant <jb@jeremybryant.net> | 2023-11-04 23:29:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-11-05 18:28:50 -0500 |
| commit | 3dd9750d124b077b2e87e0a253f69cf1f65422d6 (patch) | |
| tree | ea630778a556e404a6868bf74609992c248b6e0a /lisp/emacs-lisp/cl-extra.el | |
| parent | f0c0ff6bf23ec667ff5487fd94b7f46803ea00ac (diff) | |
| download | emacs-3dd9750d124b077b2e87e0a253f69cf1f65422d6.tar.gz emacs-3dd9750d124b077b2e87e0a253f69cf1f65422d6.tar.bz2 emacs-3dd9750d124b077b2e87e0a253f69cf1f65422d6.zip | |
* lisp/emacs-lisp/cl-extra.el (cl-remprop): Update names to match docstring
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 15be51bd651..2ca2d03170a 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -635,13 +635,12 @@ PROPLIST is a list of the sort returned by `symbol-plist'. (and (cdr p) (progn (setcdr p (cdr (cdr (cdr p)))) t)))) ;;;###autoload -(defun cl-remprop (sym tag) - "Remove from SYMBOL's plist the property PROPNAME and its value. -\n(fn SYMBOL PROPNAME)" - (let ((plist (symbol-plist sym))) - (if (and plist (eq tag (car plist))) - (progn (setplist sym (cdr (cdr plist))) t) - (cl--do-remf plist tag)))) +(defun cl-remprop (symbol propname) + "Remove from SYMBOL's plist the property PROPNAME and its value." + (let ((plist (symbol-plist symbol))) + (if (and plist (eq propname (car plist))) + (progn (setplist symbol (cdr (cdr plist))) t) + (cl--do-remf plist propname)))) ;;; Streams. |