(ido-ignore-item-p): Allow any kind of functions in ignore lists.

From Michaël Cadilhac.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62ada3773cc..e9415d745bd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-14  Micha,Ak(Bl Cadilhac  <michael.cadilhac@lrde.org>
+
+        * ido.el (ido-ignore-item-p): Allow any kind of functions in
+        ignore lists.
+
 2006-09-14  Kim F. Storm  <storm@cua.dk>
 
         * jit-lock.el (jit-lock-fontify-again): New function.
diff --git a/lisp/ido.el b/lisp/ido.el
index e3baa71396b..432347717f5 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3618,7 +3618,7 @@ for first matching file."
                   ((stringp nextstr)
                    (and (>= flen (setq slen (length nextstr)))
                         (string-equal (substring name (- flen slen)) nextstr)))
-                  ((fboundp nextstr) (funcall nextstr name))
+                  ((functionp nextstr) (funcall nextstr name))
                   (t nil))
                  (setq ignorep t
                        ext-list nil
@@ -3628,7 +3628,7 @@ for first matching file."
              (setq nextstr (car re-list))
              (if (cond
                   ((stringp nextstr) (string-match nextstr name))
-                  ((fboundp nextstr) (funcall nextstr name))
+                  ((functionp nextstr) (funcall nextstr name))
                   (t nil))
                  (setq ignorep t
                        re-list nil)