Mercurial > emacs
changeset 8453:32880f6bd87a
(frame-delete-all): Copy the whole alist first.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Aug 1994 23:31:12 +0000 |
| parents | b9fe5aec7126 |
| children | b09c4b7a4729 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)