Commit d08f4f8f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 6194477a
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> 2014-12-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
   
* net/shr.el (shr--extract-best-source): Ignore non-text children. * net/shr.el (shr--extract-best-source): Ignore non-text children.
......
...@@ -222,11 +222,6 @@ Then evaluate RESULT to get return value, default nil. ...@@ -222,11 +222,6 @@ Then evaluate RESULT to get return value, default nil.
,@(if (cdr (cdr spec)) ,@(if (cdr (cdr spec))
`((setq ,(car spec) nil) ,@(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) (defmacro dotimes (spec &rest body)
"Loop a certain number of times. "Loop a certain number of times.
Evaluate BODY with VAR bound to successive integers running from 0, Evaluate BODY with VAR bound to successive integers running from 0,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment