(assq-delete-all): Renamed from assoc-delete-all.

Don't copy alist.

diff --git a/lisp/subr.el b/lisp/subr.el
index 39108374b8836ef98ca53e8ab542dee5b5ece75b..2ae458e57f39b68cfe98321c5ad1205592017fb0 100644 (file)
--- 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)