diff options
author | Gerd Moellmann <[email protected]> | 2000-02-29 10:13:42 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-02-29 10:13:42 +0000 |
commit | d3a61a11910511b0059704201c8d0d6f85176215 (patch) | |
tree | 91b4b70a6ebce2727ccc9c745a244892ee607378 /lisp/subr.el | |
parent | c5b22f2a70b8707f712d9114c5c05f3fb4fe68cd (diff) |
(assq-delete-all): Renamed from assoc-delete-all.
Don't copy alist.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 39108374b8..2ae458e57f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1407,10 +1407,9 @@ configuration." ; (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) |