awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make plist-put! variadic

Browse Source 
And capable of modifying non-symbols in-place.
This commit is contained in:
Henrik Lissner
2019-11-01 23:52:31 -04:00
parent a074a2c851
commit 7142b4aa0f
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/autoload/plist.el
View File

@ -22,9 +22,13 @@ list, the pair is destructured into (CAR . CDR)."
,retval))) ,retval)))
;;;###autoload ;;;###autoload
(defmacro plist-put! (plist prop value) (defmacro plist-put! (plist &rest rest)
"Set PROP to VALUE in PLIST in-place." "Set each PROP VALUE pair in REST to PLIST in-place."
`(setq ,plist (plist-put ,plist ,prop ,value))) `(cl-loop for (prop value)
on (list ,@rest) by #'cddr
do ,(if (symbolp plist)
`(setq ,plist (plist-put ,plist prop value))
`(plist-put ,plist prop value))))
;;;###autoload ;;;###autoload
(defmacro plist-delete! (plist prop) (defmacro plist-delete! (plist prop)