diff options
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 2 | ||||
| -rw-r--r-- | lisp/generic.el | 8 | ||||
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/c-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/cc-mode.el | 7 | ||||
| -rw-r--r-- | lisp/progmodes/cplus-md.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/dcl-mode.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/f90.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/octave-mod.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/pascal.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/scheme.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/sh-script.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/bibtex.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/texinfo.el | 1 |
15 files changed, 30 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index f6a09eaba2c..73633e7bfe7 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -212,6 +212,7 @@ if that value is non-nil." (setq major-mode 'emacs-lisp-mode) (setq mode-name "Emacs-Lisp") (lisp-mode-variables nil) + (setq imenu-case-fold-search nil) (run-hooks 'emacs-lisp-mode-hook)) (defvar lisp-mode-map () @@ -242,6 +243,7 @@ if that value is non-nil." (setq major-mode 'lisp-mode) (setq mode-name "Lisp") (lisp-mode-variables t) + (setq imenu-case-fold-search t) (set-syntax-table lisp-mode-syntax-table) (run-hooks 'lisp-mode-hook)) diff --git a/lisp/generic.el b/lisp/generic.el index b10d8c1fa36..3b7b1b92b62 100644 --- a/lisp/generic.el +++ b/lisp/generic.el @@ -115,7 +115,10 @@ ;; ACorreir@pervasive-sw.com (Alfred Correira) ;;; Change log: -;; $Log: generic-mode.el,v $ +;; $Log: generic.el,v $ +;; Revision 1.1 1997/06/15 07:01:26 rms +;; Initial revision +;; ;; Revision 1.6 1996/11/01 17:27:47 peter ;; Changed the function generic-function-name to return a string instead ;; of a symbol. Generic-mode now uses this for the mode's name @@ -542,7 +545,8 @@ Some generic modes are defined in generic-extras.el" ;; Support for [KEYWORD] constructs found in INF, INI and Samba files (defun generic-bracket-support () (setq imenu-generic-expression - '((nil "^\\[\\(.*\\)\\]" 1)))) + '((nil "^\\[\\(.*\\)\\]" 1)) + imenu-case-fold-search t)) ;; This generic mode is always defined (define-generic-mode 'default-generic-mode (list ?#) nil nil nil nil) diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 32a373a6f36..c248227190b 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -596,6 +596,7 @@ If you use ada-xref.el: (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression ada-imenu-generic-expression) + (setq imenu-case-fold-search t) (if (ada-xemacs) nil ; XEmacs uses properties (make-local-variable 'font-lock-defaults) diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el index f3364457e18..5a19a42e134 100644 --- a/lisp/progmodes/c-mode.el +++ b/lisp/progmodes/c-mode.el @@ -363,6 +363,7 @@ if that value is non-nil." (setq parse-sexp-ignore-comments t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression c-imenu-generic-expression) + (setq imenu-case-fold-search nil) (run-hooks 'c-mode-hook)) (defun c-outline-level () diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 08ea7103f2d..39dee286ec4 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el @@ -158,7 +158,8 @@ Key bindings: c-class-key c-C-class-key c-baseclass-key nil c-comment-start-regexp c-C++-comment-start-regexp - imenu-generic-expression cc-imenu-c-generic-expression) + imenu-generic-expression cc-imenu-c-generic-expression + imenu-case-fold-search nil) (run-hooks 'c-mode-common-hook) (run-hooks 'c-mode-hook) (c-update-modeline)) @@ -197,7 +198,8 @@ Key bindings: c-class-key c-C++-class-key c-access-key c-C++-access-key c-recognize-knr-p nil - imenu-generic-expression cc-imenu-c++-generic-expression) + imenu-generic-expression cc-imenu-c++-generic-expression + imenu-case-fold-search nil) (run-hooks 'c-mode-common-hook) (run-hooks 'c++-mode-hook) (c-update-modeline)) @@ -282,6 +284,7 @@ Key bindings: c-access-key c-Java-access-key ;defun-prompt-regexp c-Java-defun-prompt-regexp imenu-generic-expression cc-imenu-java-generic-expression + imenu-case-fold-search nil ) (c-set-style "java") (run-hooks 'c-mode-common-hook) diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el index 42e2346a48d..dbbe19125c1 100644 --- a/lisp/progmodes/cplus-md.el +++ b/lisp/progmodes/cplus-md.el @@ -340,6 +340,7 @@ no args if that value is non-nil." (set (make-local-variable 'parse-sexp-ignore-comments) t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression c++-imenu-generic-expression) + (setq imenu-case-fold-search nil) (run-hooks 'c++-mode-hook) (if c++-electric-colon (define-key c++-mode-map ":" 'electric-c++-terminator))) diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index 2ac2cdea8b8..7a6e2691093 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -542,7 +542,8 @@ $ (setq comment-start-skip "\\$[ \t]*![ \t]*") (if (boundp 'imenu-generic-expression) - (setq imenu-generic-expression dcl-imenu-generic-expression)) + (progn (setq imenu-generic-expression dcl-imenu-generic-expression) + (setq imenu-case-fold-search t))) (setq imenu-create-index-function 'dcl-imenu-create-index-function) (make-local-variable 'dcl-comment-line-regexp) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 8debddda1fa..85d0901dabd 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -877,6 +877,7 @@ with no args, if that value is non-nil." (setq font-lock-defaults '(f90-font-lock-keywords nil t)) ;; Tell imenu how to handle f90. + (setq imenu-case-fold-search t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression f90-imenu-generic-expression)) (run-hooks 'f90-mode-hook) diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el index 8f5ff1d18be..c5d0d789ee7 100644 --- a/lisp/progmodes/octave-mod.el +++ b/lisp/progmodes/octave-mod.el @@ -515,7 +515,8 @@ including a reproducible test case and send the message." (setq font-lock-defaults '(octave-font-lock-keywords nil nil)) (make-local-variable 'imenu-generic-expression) - (setq imenu-generic-expression octave-mode-imenu-generic-expression) + (setq imenu-generic-expression octave-mode-imenu-generic-expression + imenu-case-fold-search nil) (octave-add-octave-menu) (octave-initialize-completions) diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 2b313ee8e35..d2ef2d2b283 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -371,6 +371,7 @@ no args, if that value is non-nil." ;; Imenu support (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression pascal-imenu-generic-expression) + (setq imenu-case-fold-search t) (run-hooks 'pascal-mode-hook)) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 122c6ecc1cf..42eecbde7c8 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -331,6 +331,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'." ;; Tell imenu how to handle Perl. (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression perl-imenu-generic-expression) + (setq imenu-case-fold-search nil) (run-hooks 'perl-mode-hook)) ;; This is used by indent-for-comment diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 094a6f45da7..ed393a96d6f 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -152,7 +152,8 @@ (set lisp-indent-function 'scheme-indent-function) (setq mode-line-process '("" scheme-mode-line-process)) (make-local-variable 'imenu-generic-expression) - (setq imenu-generic-expression scheme-imenu-generic-expression)) + (setq imenu-generic-expression scheme-imenu-generic-expression) + (setq imenu-case-fold-search t)) (defvar scheme-mode-line-process "") @@ -281,7 +282,8 @@ if that value is non-nil and inserts the value of (run-hooks 'scheme-mode-hook) (run-hooks 'dsssl-mode-hook) (scheme-mode-variables) - (setq imenu-generic-expression dsssl-imenu-generic-expression)) + (setq imenu-generic-expression dsssl-imenu-generic-expression) + (setq imenu-case-fold-search nil)) ;; Extra syntax for DSSSL. This isn't separated from Scheme, but ;; shouldn't cause much trouble in scheme-mode. diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 4898a16ac94..6ac56cdb8c7 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -829,6 +829,7 @@ Calls the value of `sh-set-shell-hook' if set." sh-shell-variables nil sh-shell-variables-initialized nil imenu-generic-expression (sh-feature sh-imenu-generic-expression) + imenu-case-fold-search nil shell (sh-feature sh-variables)) (set-syntax-table (sh-feature sh-mode-syntax-table)) (while shell diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 93176bb9a89..e462b8c27e3 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -2530,6 +2530,7 @@ non-nil. (bibtex-beginning-of-entry))) (setq imenu-generic-expression (list (list nil bibtex-reference-head bibtex-key-in-head))) + (setq imenu-case-fold-search t) (run-hooks 'bibtex-mode-hook)) (defun bibtex-submit-bug-report () diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 73b06600aeb..95d102e4741 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -515,6 +515,7 @@ value of texinfo-mode-hook." (setq words-include-escapes t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression texinfo-imenu-generic-expression) + (setq imenu-case-fold-search nil) (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '(texinfo-font-lock-keywords t)) (make-local-variable 'outline-regexp) |