Updating Doom Emacs.

.emacs.d/core/autoload/plist.el

@@ -35,24 +35,6 @@ list, the pair is destructured into (CAR . CDR)."
   "Delete PROP from PLIST in-place."
   `(setq ,plist (doom-plist-delete ,plist ,prop)))
 
-;;;###autoload
-(defmacro with-plist! (plist props &rest body)
-  "With props bound from PLIST to PROPS, evaluate BODY.
-
-PROPS is a list of symbols. Each one is converted to a keyword and then its
-value is looked up in the PLIST and bound to the symbol for the duration of
-BODY."
-  (declare (indent 2))
-  (let ((plist-sym (make-symbol "plist")))
-    `(let* ((,plist-sym ,plist)
-            ,@(cl-loop for prop in props
-                       collect
-                       `(,prop
-                         (plist-get
-                          ,plist-sym
-                          ,(doom-keyword-intern (symbol-name prop))))))
-       ,@body)))
-
 
 ;;
 ;;; Library
@@ -66,7 +48,7 @@ BODY."
 
 ;;;###autoload
 (defun doom-plist-merge (from-plist to-plist)
-  "Destructively merge FROM-PLIST onto TO-PLIST"
+  "Non-destructively merge FROM-PLIST onto TO-PLIST"
   (let ((plist (copy-sequence from-plist)))
     (while plist
       (plist-put! to-plist (pop plist) (pop plist)))
@@ -83,11 +65,11 @@ BODY."
     p))
 
 ;;;###autoload
-(defun doom-plist-delete (plist prop)
-  "Delete PROP from a copy of PLIST."
+(defun doom-plist-delete (plist &rest props)
+  "Delete PROPS from a copy of PLIST."
   (let (p)
     (while plist
-      (if (not (eq prop (car plist)))
+      (if (not (memq (car plist) props))
           (plist-put! p (car plist) (nth 1 plist)))
       (setq plist (cddr plist)))
     p))