From 807c754fc8f0c4f80dac563e7ada65585833bedb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Aug 2000 22:07:29 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-clfns.el | 11 ----------- 2 files changed, 4 insertions(+), 11 deletions(-) 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 + + * dgnushack.el: Remove `member-if' compiler macro. + 2000-08-21 Dave Love * 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))) -- 1.7.10.4