Commit 9759578f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(frame-delete-all): Copy the whole alist first.

parent 3186ddb7
......@@ -336,6 +336,7 @@ These supersede the values given in `default-frame-alist'.")
;; Delete from ALIST all elements whose car is KEY.
;; Return the modified alist.
(defun frame-delete-all (key alist)
(setq alist (copy-sequence alist))
(let ((tail alist))
(while tail
(if (eq (car (car tail)) key)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment