# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951819222 0
# Node ID 1c1e1ebca7f817b03830824df01d86be68424469
# Parent  9451c43d69bd6599a5103fc8a7e40a3b1755605d
(assq-delete-all): Renamed from assoc-delete-all.
Don't copy alist.

diff -r 9451c43d69bd -r 1c1e1ebca7f8 lisp/subr.el
--- 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)