Use imenu-case-fold-search.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index f6a09eaba2c4919fb1a9544b23bfd0189618f65d..73633e7bfe789fb2efaf16c1ca3062aa08d56f91 100644 (file)
--- 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 b10d8c1fa3671fe0ac5a33c18915f0b774feedf2..3b7b1b92b6211975d27c19042aff57153b0e7c68 100644 (file)
--- 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 32a373a6f36eabe21197a8678541d972e54394f5..c248227190b7ed4763220a2dfddd66fafbc90c85 100644 (file)
--- 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 f3364457e18d8b98c47f454d6cf63cde41540db8..5a19a42e1348a5335fb68bcadd49997f305c2ef8 100644 (file)
--- 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 08ea7103f2d2019dd04b08ab6970e700dfad4570..39dee286ec40f3ef52aa65dec581e7306072bc7b 100644 (file)
--- 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 42e2346a48db71796d1359c0fc7d1c1a260985b1..dbbe19125c19dc584e76a485528c237bf4714264 100644 (file)
--- 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 2ac2cdea8b8304df295e9ab2057fe9e6e585b67d..7a6e26910935891dd3dcf3068390d585d8f9a98d 100644 (file)
--- 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 8debddda1fad5f5aa6b6ca127d0a995ff471c6c9..85d0901dabd945587a256e546bea1ee87a355012 100644 (file)
--- 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 8f5ff1d18bee25616b7dbe5b0ff78d3209291bc8..c5d0d789ee770e6b54ca7114dc9ac253d17b1a0a 100644 (file)
--- 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 2b313ee8e35a65df5b0aea1b9fd9277545e3073e..d2ef2d2b283d4ff4ea69bb458992e8cfdfc6df6a 100644 (file)
--- 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))
 
 \f

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 122c6ecc1cf276d9027f2e162ce541364c04d10d..42eecbde7c83ad94a92019a16c3f8e08b035476e 100644 (file)
--- 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))
 \f
 ;; This is used by indent-for-comment

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 094a6f45da73e5467a47604e71b4466f0a2332cb..ed393a96d6f307acff9302e91c356dcd1912ef0e 100644 (file)
--- 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 4898a16ac94ffa5f7864870d71a2b257a31a7cbe..6ac56cdb8c77620095e441ba67060b1f7eac7a38 100644 (file)
--- 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 93176bb9a8996aa3adbd4ca1fd6639182e738f85..e462b8c27e3f819511b97733bd5ccc4d171a9a99 100644 (file)
--- 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 73b06600aebbec22265275a56042acbfcba5bfa5..95d102e47416b3df0246d63631dea43d6d99c9c4 100644 (file)
--- 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)