From: Kim F. Storm <storm@cua.dk>
Date: Thu, 14 Sep 2006 14:42:49 +0000 (+0000)
Subject: (ido-ignore-item-p): Allow any kind of functions in ignore lists.
X-Git-Tag: emacs-pretest-22.0.90~567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf8b0f8b81c11974a287c0cc4a7cbd8b1cfcdb32;p=emacs.git

(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 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)