mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2014-12-04 15:57:23 -05:00
parent 6194477a62
commit d08f4f8fc5
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/subr.el
View file

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