mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

* 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)))) (and (cdr p) (progn (setcdr p (cdr (cdr (cdr p)))) t))))
;;;###autoload ;;;###autoload
(defun cl-remprop (sym tag) (defun cl-remprop (symbol propname)
"Remove from SYMBOL's plist the property PROPNAME and its value. "Remove from SYMBOL's plist the property PROPNAME and its value."
\n(fn SYMBOL PROPNAME)" (let ((plist (symbol-plist symbol)))
(let ((plist (symbol-plist sym))) (if (and plist (eq propname (car plist)))
(if (and plist (eq tag (car plist))) (progn (setplist symbol (cdr (cdr plist))) t)
(progn (setplist sym (cdr (cdr plist))) t) (cl--do-remf plist propname))))
(cl--do-remf plist tag))))
;;; Streams. ;;; Streams.