procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/cl-extra.el (cl-remprop): Update names to match docstring

Browse source
This commit is contained in:
Jeremy Bryant 2023-11-04 23:29:10 +00:00 • committed by Stefan Monnier
parent f0c0ff6bf2
commit 3dd9750d12
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/cl-extra.el
View file

@ -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.