emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add doom-plist-{keys,values} functions

Browse source 
Backported from the CLI rewrite.
This commit is contained in:
Henrik Lissner 2021-02-05 22:50:05 -05:00
parent 628f0a930f
commit de1f2a8f96
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
core/autoload/plist.el
View file

@ -73,3 +73,21 @@ list, the pair is destructured into (CAR . CDR)."
(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))
;;;###autoload
(defun doom-plist-keys (plist)
"Return the keys in PLIST."
(let (keys)
(while plist
(push (car plist) keys)
(setq plist (cddr plist)))
keys))
;;;###autoload
(defun doom-plist-values (plist)
"Return the values in PLIST."
(let (keys)
(while plist
(push (cadr plist) keys)
(setq plist (cddr plist)))
keys))