Use imenu-case-fold-search.

2 files changed, 2 insertions, 0 deletions

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)