Synch with Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18d8587..ff0d359 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-23  Dave Love  <fx@gnu.org>
+
+       * dgnushack.el: Remove `member-if' compiler macro.
+
 2000-08-21  Dave Love  <fx@gnu.org>
 
        * nnimap.el (nnimap-request-newgroups): Eschew member-if.

diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el
index d46f8f9..07b0eeb 100644 (file)
--- a/lisp/gnus-clfns.el
+++ b/lisp/gnus-clfns.el
@@ -95,17 +95,6 @@
             (setq arg (cdr arg)))
           (apply (function nconc) (nreverse res))))))
 
-;;  (define-compiler-macro member-if (&whole form pred list)
-;;    (if (and (fboundp 'member-if)
-;;          (subrp (symbol-function 'member-if)))
-;;     form
-;;      `(let ((fn ,pred)
-;;          (seq ,list))
-;;      (while (and seq
-;;                  (not (funcall fn (car seq))))
-;;        (pop seq))
-;;      seq)))
-
   (define-compiler-macro union (&whole form list1 list2)
     (if (and (fboundp 'union)
             (subrp (symbol-function 'union)))