mu4e-plist-put: add to existing keys

This commit is contained in:
Dirk-Jan C. Binnema
2025-05-08 09:25:17 +03:00
parent f725594636
commit e39e135e67

View File

@ -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)))