mu4e-plist-put: add to existing keys
This commit is contained in:
@ -616,7 +616,7 @@ Returns the updated PLIST."
|
|||||||
(defun mu4e-plist-put-many (plist &rest keyvals)
|
(defun mu4e-plist-put-many (plist &rest keyvals)
|
||||||
"Like `plist-put', but allow for multiple key-value pairs.
|
"Like `plist-put', but allow for multiple key-value pairs.
|
||||||
PLIST is a property list, and KEYVALS are key value ... ."
|
PLIST is a property list, and KEYVALS are key value ... ."
|
||||||
(let (p)
|
(let ((p plist))
|
||||||
(while keyvals
|
(while keyvals
|
||||||
(setq p (plist-put p (car keyvals) (cadr keyvals)))
|
(setq p (plist-put p (car keyvals) (cadr keyvals)))
|
||||||
(setq keyvals (cddr keyvals)))
|
(setq keyvals (cddr keyvals)))
|
||||||
|
|||||||
Reference in New Issue
Block a user