/[emacs]/emacs/lisp/imenu.el
ViewVC logotype

Diff of /emacs/lisp/imenu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.92 by gm, Tue Aug 20 20:34:33 2002 UTC revision 1.93 by monnier, Tue May 6 15:16:27 2003 UTC
# Line 745  Their results are gathered into an index Line 745  Their results are gathered into an index
745    "Defines whether `imenu--generic-function' should fold case when matching.    "Defines whether `imenu--generic-function' should fold case when matching.
746    
747  This variable should be set (only) by initialization code  This variable should be set (only) by initialization code
748  for modes which use `imenu--generic-function'.  If it is not set, that  for modes which use `imenu--generic-function'.  If it is not set, but
749  function will use the current value of `case-fold-search' to match  `font-lock-defaults' is set, then font-lock's setting is used.")
 patterns.")  
750  ;;;###autoload  ;;;###autoload
751  (make-variable-buffer-local 'imenu-case-fold-search)  (make-variable-buffer-local 'imenu-case-fold-search)
752    
# Line 779  PATTERNS." Line 778  PATTERNS."
778    
779    (let ((index-alist (list 'dummy))    (let ((index-alist (list 'dummy))
780          prev-pos beg          prev-pos beg
781          (case-fold-search imenu-case-fold-search)          (case-fold-search (if (or (local-variable-p 'imenu-case-fold-search)
782                                      (not (local-variable-p 'font-lock-defaults)))
783                                  imenu-case-fold-search
784                                (nth 2 font-lock-defaults)))
785          (old-table (syntax-table))          (old-table (syntax-table))
786          (table (copy-syntax-table (syntax-table)))          (table (copy-syntax-table (syntax-table)))
787          (slist imenu-syntax-alist))          (slist imenu-syntax-alist))

Legend:
Removed from v.1.92  
changed lines
  Added in v.1.93

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26