diff options
| author | Dave Love <fx@gnu.org> | 1997-12-12 17:10:08 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1997-12-12 17:10:08 +0000 |
| commit | c0b08eb01759d39c1aa3ac731fee22832135c4aa (patch) | |
| tree | e4d2dbce2aa4d0bd7b346f9e6965873e38a5cddc /lisp/progmodes/scheme.el | |
| parent | 71a895c6096c20ae21322fb4e0fc5b2efae2039f (diff) | |
| download | emacs-c0b08eb01759d39c1aa3ac731fee22832135c4aa.tar.gz | |
Use imenu-case-fold-search.
Diffstat (limited to 'lisp/progmodes/scheme.el')
| -rw-r--r-- | lisp/progmodes/scheme.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 094a6f45da7..ed393a96d6f 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -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 @@ if that value is non-nil and inserts the value of (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. |