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

2 files changed, 9 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1a080ee9f7..4e9eb15b0e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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,
diff --git a/lisp/ido.el b/lisp/ido.el
index 1b7d4e78cb7..56331661f24 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -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")