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

9759578f · Richard M. Stallman · 3186ddb7 · 9759578f
Commit 9759578f authored Aug 04, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

lisp/frame.el lisp/frame.el +1 -0

No files found.
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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)