From a7f3fecc54d229c14982c1f6ce225dda57ed1108 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 12 Jun 2013 00:22:20 -0700 Subject: [PATCH] * lisp/ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib. --- lisp/ChangeLog | 4 ++++ lisp/ido.el | 10 +++++----- 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 + + * ido.el (ido-delete-ignored-files): Rewrite to avoid cl-lib. + 2013-06-12 Eyal Lotem (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") -- 2.11.4.GIT