diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-08-04 23:31:12 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-08-04 23:31:12 +0000 |
commit | 7d145e22d68ad1bafd4d9d25706a32a106aec2dc (patch) | |
tree | fe58f1d7734b4d0c867faf61be8797baf76548fb /lisp/frame.el | |
parent | ca5dbba71f07cdf74d99ba63801df7fcb2979af5 (diff) | |
download | emacs-7d145e22d68ad1bafd4d9d25706a32a106aec2dc.tar.gz |
(frame-delete-all): Copy the whole alist first.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r-- | lisp/frame.el | 1 |
1 files changed, 1 insertions, 0 deletions
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) |