# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776043072 0
# Node ID 32880f6bd87a19ab5d768e28e8d2579ee7e0a7ac
# Parent  b9fe5aec7126db6be109d53076028163ffebe63e
(frame-delete-all): Copy the whole alist first.

diff -r b9fe5aec7126 -r 32880f6bd87a lisp/frame.el
--- a/lisp/frame.el	Thu Aug 04 23:30:09 1994 +0000
+++ b/lisp/frame.el	Thu Aug 04 23:31:12 1994 +0000
@@ -336,6 +336,7 @@
 ;; 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)