Mercurial > emacs
changeset 27908:1c1e1ebca7f8
(assq-delete-all): Renamed from assoc-delete-all.
Don't copy alist.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 29 Feb 2000 10:13:42 +0000 |
| parents | 9451c43d69bd |
| children | 2bf72063e6f0 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Tue Feb 29 09:57:09 2000 +0000 +++ b/lisp/subr.el Tue Feb 29 10:13:42 2000 +0000 @@ -1407,10 +1407,9 @@ ; (setq tail (cdr tail)))) ; alist) -(defun assoc-delete-all (key alist) +(defun assq-delete-all (key alist) "Delete from ALIST all elements whose car is KEY. Return the modified alist." - (setq alist (copy-sequence alist)) (let ((tail alist)) (while tail (if (eq (car (car tail)) key)