mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(imenu--generic-function): Use font-lock-defaults

Browse Source 
case setting if imenu-case-fold-search is not locally set.
This commit is contained in:
Stefan Monnier 2003-05-06 15:16:27 +00:00
parent 0f21c5a0a6
commit 95e60ff984
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/imenu.el
View File

@ -745,9 +745,8 @@ Their results are gathered into an index alist."
"Defines whether `imenu--generic-function' should fold case when matching.
This variable should be set (only) by initialization code
for modes which use `imenu--generic-function'. If it is not set, that
function will use the current value of `case-fold-search' to match
patterns.")
for modes which use `imenu--generic-function'. If it is not set, but
`font-lock-defaults' is set, then font-lock's setting is used.")
;;;###autoload
(make-variable-buffer-local 'imenu-case-fold-search)
@ -779,7 +778,10 @@ PATTERNS."
(let ((index-alist (list 'dummy))
prev-pos beg
(case-fold-search imenu-case-fold-search)
(case-fold-search (if (or (local-variable-p 'imenu-case-fold-search)
(not (local-variable-p 'font-lock-defaults)))
imenu-case-fold-search
(nth 2 font-lock-defaults)))
(old-table (syntax-table))
(table (copy-syntax-table (syntax-table)))
(slist imenu-syntax-alist))