From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 29 Feb 2000 10:13:42 +0000 (+0000)
Subject: (assq-delete-all): Renamed from assoc-delete-all.
X-Git-Tag: emacs-pretest-21.0.90~4845
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3a61a11910511b0059704201c8d0d6f85176215;p=emacs.git

(assq-delete-all): Renamed from assoc-delete-all.
Don't copy alist.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 39108374b88..2ae458e57f3 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)