mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-27 14:23:43 -05:00
Change doom-plist-delete to delete N props
This commit is contained in:
@@ -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))
|
||||||
|
Reference in New Issue
Block a user