[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d08f4f8: * lisp/subr.el (filter): Remove. Use `cl-r
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master d08f4f8: * lisp/subr.el (filter): Remove. Use `cl-remove-if-not' or `seq-filter'. |
Date: |
Thu, 04 Dec 2014 20:57:32 +0000 |
branch: master
commit d08f4f8fc5219324ac352c6d89f0db5c6a18ce32
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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 1f0d752..19a3020 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-04 Stefan Monnier <address@hidden>
+
+ * subr.el (filter): Remove. Use `cl-remove-if-not' or `seq-filter'.
+
2014-12-04 Lars Magne Ingebrigtsen <address@hidden>
* net/shr.el (shr--extract-best-source): Ignore non-text children.
diff --git a/lisp/subr.el b/lisp/subr.el
index 4cc80e9..6ce02b7 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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d08f4f8: * lisp/subr.el (filter): Remove. Use `cl-remove-if-not' or `seq-filter'.,
Stefan Monnier <=