From: yamaoka <yamaoka>
Date: Wed, 23 Aug 2000 22:07:29 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~131
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=807c754fc8f0c4f80dac563e7ada65585833bedb;p=elisp%2Fgnus.git-

Synch with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18d8587..ff0d359 100644
--- 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
--- 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)))