From bf8b0f8b81c11974a287c0cc4a7cbd8b1cfcdb32 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 14 Sep 2006 14:42:49 +0000 Subject: [PATCH] =?utf8?q?(ido-ignore-item-p):=20Allow=20any=20kind=20of?= =?utf8?q?=20functions=20in=20ignore=20lists.=20From=20Micha=C3=ABl=20Cadi?= =?utf8?q?lhac.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 5 +++++ lisp/ido.el | 4 ++-- 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 + + * ido.el (ido-ignore-item-p): Allow any kind of functions in + ignore lists. + 2006-09-14 Kim F. Storm * 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) -- 2.39.2