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." ...@@ -1407,10 +1407,9 @@ configuration."
; (setq tail (cdr tail)))) ; (setq tail (cdr tail))))
; alist) ; alist)
(defun assoc-delete-all (key alist) (defun assq-delete-all (key alist)
"Delete from ALIST all elements whose car is KEY. "Delete from ALIST all elements whose car is KEY.
Return the modified alist." Return the modified alist."
(setq alist (copy-sequence alist))
(let ((tail alist)) (let ((tail alist))
(while tail (while tail
(if (eq (car (car tail)) key) (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