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/ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib.

Browse source
This commit is contained in:
Glenn Morris 2013-06-12 00:22:20 -07:00
parent 834b5ded7a
commit a7f3fecc54
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2013-06-12 Glenn Morris <rgm@gnu.org>
* ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib.
2013-06-12 Eyal Lotem <eyal.lotem@gmail.com> (tiny change)
* ido.el (ido-delete-ignored-files): New function,

10
lisp/ido.el
View file

@ -3273,12 +3273,12 @@ for first matching file."
cur nil)))
res))
(require 'cl-lib)
(defun ido-delete-ignored-files (files)
(cl-delete-if
(lambda (name) (ido-ignore-item-p name ido-ignore-files t))
files))
"Delete elements from list FILES that match `ido-ignore-item-p'."
(delq nil
(mapcar (lambda (name)
(unless (ido-ignore-item-p name ido-ignore-files t) name))
files)))
(defun ido-wide-find-dirs-or-files (dir file &optional prefix finddir)
;; As ido-run-find-command, but returns a list of cons pairs ("file" . "dir")