From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Aug 1994 23:31:12 +0000 (+0000)
Subject: (frame-delete-all): Copy the whole alist first.
X-Git-Tag: emacs-19.34~7400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9759578f6ce5ee9565a8dbbb3410d47b3a502095;p=emacs.git

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

diff --git a/lisp/frame.el b/lisp/frame.el
index 0688b3098d5..b529afc8981 100644
--- 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)