Mercurial > emacs

diff lisp/progmodes/scheme.el @ 20459:90f306f86f5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use imenu-case-fold-search.
author Dave Love <fx@gnu.org>
date Fri, 12 Dec 1997 17:10:08 +0000
parents 98744f3de8ed
children 3965832648d3
line wrap: on
line diff
--- a/lisp/progmodes/scheme.el	Thu Dec 11 07:25:16 1997 +0000
+++ b/lisp/progmodes/scheme.el	Fri Dec 12 17:10:08 1997 +0000
@@ -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 @@
   (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.