mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-28 07:45:00 +00:00
(ido-ignore-item-p): Allow any kind of functions in ignore lists.
From Michaël Cadilhac.
This commit is contained in:
parent
cd3587c125
commit
bf8b0f8b81
@ -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.
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user