(assq-delete-all): New compiler macro for Emacs 20.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc069bb..0499206 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dgnushack.el (assq-delete-all): New compiler macro for Emacs 20.
+
 2003-05-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Fbind find-coding-system.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 0b88fd1..1064b5f 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -50,6 +50,18 @@
 
 ;; Define compiler macros for the functions provided by cl in old Emacsen.
 (unless (featurep 'xemacs)
+  (define-compiler-macro assq-delete-all (&whole form key alist)
+    (if (>= emacs-major-version 21)
+       form
+      `(let* ((key ,key)
+             (alist ,alist)
+             (tail alist))
+        (while tail
+          (if (and (consp (car tail)) (eq (car (car tail)) key))
+              (setq alist (delq (car tail) alist)))
+          (setq tail (cdr tail)))
+        alist)))
+
   (define-compiler-macro butlast (&whole form x &optional n)
     (if (>= emacs-major-version 21)
        form