Change doom-plist-delete to delete N props
This commit is contained in:
parent
b8c25b6b4e
commit
ede5beed7a
1 changed files with 3 additions and 3 deletions
|
@ -83,11 +83,11 @@ BODY."
|
||||||
p))
|
p))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun doom-plist-delete (plist prop)
|
(defun doom-plist-delete (plist &rest props)
|
||||||
"Delete PROP from a copy of PLIST."
|
"Delete PROPS from a copy of PLIST."
|
||||||
(let (p)
|
(let (p)
|
||||||
(while plist
|
(while plist
|
||||||
(if (not (eq prop (car plist)))
|
(if (not (memq (car plist) props))
|
||||||
(plist-put! p (car plist) (nth 1 plist)))
|
(plist-put! p (car plist) (nth 1 plist)))
|
||||||
(setq plist (cddr plist)))
|
(setq plist (cddr plist)))
|
||||||
p))
|
p))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue