Use imenu-case-fold-search.

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))
 

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)

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)

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 ()

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)

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)))

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)

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)

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)

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))
 
 

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

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.

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

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 ()

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)