From 7c54478335c5a7d865dbc48972b98031862f168f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 26 Oct 2019 01:46:32 -0400 Subject: [PATCH] Ensure doplist! has no side effects --- core/autoload/plist.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/autoload/plist.el b/core/autoload/plist.el index 1d06895cc..07dabe324 100644 --- a/core/autoload/plist.el +++ b/core/autoload/plist.el @@ -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)." (declare (indent defun)) (let ((plist-var (make-symbol "plist"))) - `(let ((,plist-var ,plist)) + `(let ((,plist-var (copy-sequence ,plist))) (while ,plist-var (let ,(if (listp arglist) `((,(pop arglist) (pop ,plist-var))