# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 933360022 0
# Node ID e4493f0697ae0169918e4ac67f6dcf449ec15e61
# Parent  fde300f58ed89fc2da3530a85429387e5bf805ac
(assoc-delete-all): New function, renamed from frame-delete-all.

diff -r fde300f58ed8 -r e4493f0697ae lisp/subr.el
--- a/lisp/subr.el	Fri Jul 30 18:39:32 1999 +0000
+++ b/lisp/subr.el	Fri Jul 30 18:40:22 1999 +0000
@@ -1252,4 +1252,15 @@
 ;      (setq tail (cdr tail))))
 ;  alist)
 
+(defun assoc-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)
+	  (setq alist (delq (car tail) alist)))
+      (setq tail (cdr tail)))
+    alist))
+
 ;;; subr.el ends here