Commit a7f3fecc authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib.

parent 834b5ded
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,
......@@ -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")
......
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