Commit d3a61a11 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

Don't copy alist.
parent c5b22f2a
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment