From d08f4f8fc5219324ac352c6d89f0db5c6a18ce32 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 4 Dec 2014 15:57:23 -0500 Subject: [PATCH] * lisp/subr.el (filter): Remove. Use `cl-remove-if-not' or `seq-filter'. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 5 ----- 2 files changed, 4 insertions(+), 5 deletions(-) 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 + + * subr.el (filter): Remove. Use `cl-remove-if-not' or `seq-filter'. + 2014-12-04 Lars Magne Ingebrigtsen * 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, -- 2.39.2