# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052234187 0
# Node ID 1ac6f8245bff3a2174d3b02da1b57fb36085f6b7
# Parent  ac2120f868b95926493dd892b376b2d8d49dcdcc
(imenu--generic-function): Use font-lock-defaults
case setting if imenu-case-fold-search is not locally set.

diff -r ac2120f868b9 -r 1ac6f8245bff lisp/imenu.el
--- a/lisp/imenu.el	Tue May 06 14:55:56 2003 +0000
+++ b/lisp/imenu.el	Tue May 06 15:16:27 2003 +0000
@@ -745,9 +745,8 @@
   "Defines whether `imenu--generic-function' should fold case when matching.
 
 This variable should be set (only) by initialization code
-for modes which use `imenu--generic-function'.  If it is not set, that
-function will use the current value of `case-fold-search' to match
-patterns.")
+for modes which use `imenu--generic-function'.  If it is not set, but
+`font-lock-defaults' is set, then font-lock's setting is used.")
 ;;;###autoload
 (make-variable-buffer-local 'imenu-case-fold-search)
 
@@ -779,7 +778,10 @@
 
   (let ((index-alist (list 'dummy))
 	prev-pos beg
-        (case-fold-search imenu-case-fold-search)
+        (case-fold-search (if (or (local-variable-p 'imenu-case-fold-search)
+				  (not (local-variable-p 'font-lock-defaults)))
+			      imenu-case-fold-search
+			    (nth 2 font-lock-defaults)))
         (old-table (syntax-table))
         (table (copy-syntax-table (syntax-table)))
         (slist imenu-syntax-alist))