diff options
| author | Richard M. Stallman <[email protected]> | 1994-08-04 23:31:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-08-04 23:31:12 +0000 |
| commit | 9759578f6ce5ee9565a8dbbb3410d47b3a502095 (patch) | |
| tree | 16fe8df752dc4b14f7719f8f25296bb77ee31115 /lisp/frame.el | |
| parent | 3186ddb70e510b68dcf9a9a09a1bf4bfc13f44f8 (diff) | |
(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 0688b3098d..b529afc898 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) |