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

From Michaël Cadilhac.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62ada3773cca0e1a1a527781b004970b52061cf8..e9415d745bd2c5ad2f7d9fb28567d24bc660fb6b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-14  Micha\e,Ak\e(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 e3baa71396b54207f2a1f9fb81a9fe2e61a5018e..432347717f59a9734d1956fe8757673b849539e3 100644 (file)
--- 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)