[Emacs-diffs] trunk r112941: * lisp/ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib.

[Glenn Morris]

------------------------------------------------------------
revno: 112941
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-06-12 00:22:20 -0700
message:
  * lisp/ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/ido.el                    ido.el-20091113204419-o5vbwnq5f7feedwu-2430

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-12 07:18:49 +0000
+++ b/lisp/ChangeLog    2013-06-12 07:22:20 +0000
@@ -1,3 +1,7 @@
+2013-06-12  Glenn Morris  <address@hidden>
+
+       * ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib.
+
 2013-06-12  Eyal Lotem  <address@hidden>  (tiny change)
 
        * ido.el (ido-delete-ignored-files): New function,

=== modified file 'lisp/ido.el'
--- a/lisp/ido.el       2013-06-12 07:18:49 +0000
+++ b/lisp/ido.el       2013-06-12 07:22:20 +0000
@@ -3273,12 +3273,12 @@
              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")