From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 4 Dec 2014 20:57:23 +0000 (-0500)
Subject: * lisp/subr.el (filter): Remove.  Use `cl-remove-if-not' or `seq-filter'.
X-Git-Tag: emacs-25.0.90~2635^2~204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d08f4f8fc5219324ac352c6d89f0db5c6a18ce32;p=emacs.git

* lisp/subr.el (filter): Remove.  Use `cl-remove-if-not' or `seq-filter'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f0d7520b60..19a30202f3b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* subr.el (filter): Remove.  Use `cl-remove-if-not' or `seq-filter'.
+
 2014-12-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* net/shr.el (shr--extract-best-source): Ignore non-text children.
diff --git a/lisp/subr.el b/lisp/subr.el
index 4cc80e9be6f..6ce02b79a0a 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -222,11 +222,6 @@ Then evaluate RESULT to get return value, default nil.
          ,@(if (cdr (cdr spec))
                `((setq ,(car spec) nil) ,@(cdr (cdr spec))))))))
 
-(defmacro filter (condp lst)
-  "Return the list consisting of elements in LST for which CONDP is not nil."
-  `(delq nil
-	 (mapcar (lambda (x) (and (funcall ,condp x) x)) ,lst)))
-
 (defmacro dotimes (spec &rest body)
   "Loop a certain number of times.
 Evaluate BODY with VAR bound to successive integers running from 0,