mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(imenu-case-fold-search): New buffer-local variable.

Browse Source
This commit is contained in:
Dave Love 1998-01-25 22:55:08 +00:00
parent 1c6bb4821d
commit 73f4895397
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/imenu.el
View File

@ -186,7 +186,10 @@ For emacs-lisp-mode for example PATTERN would look like:
(\"*Vars*\" \"^\\\\s-*(def\\\\(var\\\\|const\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2)
(\"*Types*\" \"^\\\\s-*(def\\\\(type\\\\|struct\\\\|class\\\\|ine-condition\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2))
The variable is buffer-local.")
The variable is buffer-local.
The variable `imenu-case-fold-search' determines whether or not the
regexp matches are case sensitive.")
;;;###autoload
(make-variable-buffer-local 'imenu-generic-expression)
@ -679,6 +682,15 @@ Their results are gathered into an index alist."
;;; Generic index gathering function.
;;;
(defvar imenu-case-fold-search t
"Defines whether `imenu--generic-function' should fold case when matching.
This buffer-local 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.")
(make-variable-buffer-local 'imenu-case-fold-search)
(defun imenu--generic-function (patterns)
;; Built on some ideas that Erik Naggum <erik@naggum.no> once posted
;; to comp.emacs
@ -719,7 +731,8 @@ pattern.
(function (lambda (pattern) (identity (cadr pattern))))
patterns "\\)\\|\\(")
"\\)"))
prev-pos)
prev-pos
(case-fold-search imenu-case-fold-search))
(goto-char (point-max))
(imenu-progress-message prev-pos 0 t)