awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-18 16:06:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Ensure doplist! has no side effects

Browse Source
This commit is contained in:
Henrik Lissner
2019-10-26 01:46:32 -04:00
parent a78e89bbf8
commit 7c54478335
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
core/autoload/plist.el
View File

@@ -11,7 +11,7 @@ Evaluate BODY with either ARGLIST bound to (cons PROP VAL) or, if ARGLIST is a
list, the pair is destructured into (CAR . CDR)." list, the pair is destructured into (CAR . CDR)."
(declare (indent defun)) (declare (indent defun))
(let ((plist-var (make-symbol "plist"))) (let ((plist-var (make-symbol "plist")))
`(let ((,plist-var ,plist)) `(let ((,plist-var (copy-sequence ,plist)))
(while ,plist-var (while ,plist-var
(let ,(if (listp arglist) (let ,(if (listp arglist)
`((,(pop arglist) (pop ,plist-var)) `((,(pop arglist) (pop ,plist-var))