745 |
"Defines whether `imenu--generic-function' should fold case when matching. |
"Defines whether `imenu--generic-function' should fold case when matching. |
746 |
|
|
747 |
This variable should be set (only) by initialization code |
This variable should be set (only) by initialization code |
748 |
for modes which use `imenu--generic-function'. If it is not set, that |
for modes which use `imenu--generic-function'. If it is not set, but |
749 |
function will use the current value of `case-fold-search' to match |
`font-lock-defaults' is set, then font-lock's setting is used.") |
|
patterns.") |
|
750 |
;;;###autoload |
;;;###autoload |
751 |
(make-variable-buffer-local 'imenu-case-fold-search) |
(make-variable-buffer-local 'imenu-case-fold-search) |
752 |
|
|
778 |
|
|
779 |
(let ((index-alist (list 'dummy)) |
(let ((index-alist (list 'dummy)) |
780 |
prev-pos beg |
prev-pos beg |
781 |
(case-fold-search imenu-case-fold-search) |
(case-fold-search (if (or (local-variable-p 'imenu-case-fold-search) |
782 |
|
(not (local-variable-p 'font-lock-defaults))) |
783 |
|
imenu-case-fold-search |
784 |
|
(nth 2 font-lock-defaults))) |
785 |
(old-table (syntax-table)) |
(old-table (syntax-table)) |
786 |
(table (copy-syntax-table (syntax-table))) |
(table (copy-syntax-table (syntax-table))) |
787 |
(slist imenu-syntax-alist)) |
(slist imenu-syntax-alist)) |