diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-12-04 15:57:23 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-12-04 15:57:23 -0500 |
| commit | d08f4f8fc5219324ac352c6d89f0db5c6a18ce32 (patch) | |
| tree | 59a24f34612a6a8137582543c352a3e1af54906f /lisp | |
| parent | 6194477a622ce9293162d16a7ba98c9cfc18d124 (diff) | |
| download | emacs-d08f4f8fc5219324ac352c6d89f0db5c6a18ce32.tar.gz emacs-d08f4f8fc5219324ac352c6d89f0db5c6a18ce32.tar.bz2 emacs-d08f4f8fc5219324ac352c6d89f0db5c6a18ce32.zip | |
* lisp/subr.el (filter): Remove. Use `cl-remove-if-not' or `seq-filter'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <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, |