From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 May 2003 15:16:27 +0000 (+0000)
Subject: (imenu--generic-function): Use font-lock-defaults
X-Git-Tag: ttn-vms-21-2-B4~10295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95e60ff9843afdef2077b29ba94e768caf80cb63;p=emacs.git

(imenu--generic-function): Use font-lock-defaults
case setting if imenu-case-fold-search is not locally set.
---

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 66b5816d5f8..a27243d0c18 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -745,9 +745,8 @@ Their results are gathered into an index alist."
   "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 @@ PATTERNS."
 
   (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))