Use imenu-case-fold-search.

11 files changed, 20 insertions, 6 deletions

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