diff options
| author | Richard M. Stallman | 1994-08-04 23:31:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-04 23:31:12 +0000 |
| commit | 9759578f6ce5ee9565a8dbbb3410d47b3a502095 (patch) | |
| tree | 16fe8df752dc4b14f7719f8f25296bb77ee31115 | |
| parent | 3186ddb70e510b68dcf9a9a09a1bf4bfc13f44f8 (diff) | |
| download | emacs-9759578f6ce5ee9565a8dbbb3410d47b3a502095.tar.gz emacs-9759578f6ce5ee9565a8dbbb3410d47b3a502095.zip | |
(frame-delete-all): Copy the whole alist first.
| -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'.") | |||
| 336 | ;; Delete from ALIST all elements whose car is KEY. | 336 | ;; Delete from ALIST all elements whose car is KEY. |
| 337 | ;; Return the modified alist. | 337 | ;; Return the modified alist. |
| 338 | (defun frame-delete-all (key alist) | 338 | (defun frame-delete-all (key alist) |
| 339 | (setq alist (copy-sequence alist)) | ||
| 339 | (let ((tail alist)) | 340 | (let ((tail alist)) |
| 340 | (while tail | 341 | (while tail |
| 341 | (if (eq (car (car tail)) key) | 342 | (if (eq (car (car tail)) key) |