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

d08f4f8f · Stefan Monnier · 6194477a · d08f4f8f · d08f4f8f
Commit d08f4f8f authored Dec 04, 2014 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 5 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/subr.el lisp/subr.el +0 -5

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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,