Mercurial > emacs
changeset 20459:90f306f86f5d
Use imenu-case-fold-search.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 12 Dec 1997 17:10:08 +0000 |
| parents | ad0d2c5040a0 |
| children | 9bef2b27cdaa |
| files | lisp/emacs-lisp/lisp-mode.el lisp/generic.el lisp/progmodes/ada-mode.el lisp/progmodes/c-mode.el lisp/progmodes/cc-mode.el lisp/progmodes/cplus-md.el lisp/progmodes/dcl-mode.el lisp/progmodes/f90.el lisp/progmodes/octave-mod.el lisp/progmodes/pascal.el lisp/progmodes/perl-mode.el lisp/progmodes/scheme.el lisp/progmodes/sh-script.el lisp/textmodes/bibtex.el lisp/textmodes/texinfo.el |
| diffstat | 15 files changed, 30 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Fri Dec 12 17:10:08 1997 +0000 @@ -212,6 +212,7 @@ (setq major-mode 'emacs-lisp-mode) (setq mode-name "Emacs-Lisp") (lisp-mode-variables nil) + (setq imenu-case-fold-search nil) (run-hooks 'emacs-lisp-mode-hook)) (defvar lisp-mode-map () @@ -242,6 +243,7 @@ (setq major-mode 'lisp-mode) (setq mode-name "Lisp") (lisp-mode-variables t) + (setq imenu-case-fold-search t) (set-syntax-table lisp-mode-syntax-table) (run-hooks 'lisp-mode-hook))
--- a/lisp/generic.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/generic.el Fri Dec 12 17:10:08 1997 +0000 @@ -115,7 +115,10 @@ ;; ACorreir@pervasive-sw.com (Alfred Correira) ;;; Change log: -;; $Log: generic-mode.el,v $ +;; $Log: generic.el,v $ +;; Revision 1.1 1997/06/15 07:01:26 rms +;; Initial revision +;; ;; Revision 1.6 1996/11/01 17:27:47 peter ;; Changed the function generic-function-name to return a string instead ;; of a symbol. Generic-mode now uses this for the mode's name @@ -542,7 +545,8 @@ ;; Support for [KEYWORD] constructs found in INF, INI and Samba files (defun generic-bracket-support () (setq imenu-generic-expression - '((nil "^\\[\\(.*\\)\\]" 1)))) + '((nil "^\\[\\(.*\\)\\]" 1)) + imenu-case-fold-search t)) ;; This generic mode is always defined (define-generic-mode 'default-generic-mode (list ?#) nil nil nil nil)
--- a/lisp/progmodes/ada-mode.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/ada-mode.el Fri Dec 12 17:10:08 1997 +0000 @@ -596,6 +596,7 @@ (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression ada-imenu-generic-expression) + (setq imenu-case-fold-search t) (if (ada-xemacs) nil ; XEmacs uses properties (make-local-variable 'font-lock-defaults)
--- a/lisp/progmodes/c-mode.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/c-mode.el Fri Dec 12 17:10:08 1997 +0000 @@ -363,6 +363,7 @@ (setq parse-sexp-ignore-comments t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression c-imenu-generic-expression) + (setq imenu-case-fold-search nil) (run-hooks 'c-mode-hook)) (defun c-outline-level ()
--- a/lisp/progmodes/cc-mode.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/cc-mode.el Fri Dec 12 17:10:08 1997 +0000 @@ -158,7 +158,8 @@ c-class-key c-C-class-key c-baseclass-key nil c-comment-start-regexp c-C++-comment-start-regexp - imenu-generic-expression cc-imenu-c-generic-expression) + imenu-generic-expression cc-imenu-c-generic-expression + imenu-case-fold-search nil) (run-hooks 'c-mode-common-hook) (run-hooks 'c-mode-hook) (c-update-modeline)) @@ -197,7 +198,8 @@ c-class-key c-C++-class-key c-access-key c-C++-access-key c-recognize-knr-p nil - imenu-generic-expression cc-imenu-c++-generic-expression) + imenu-generic-expression cc-imenu-c++-generic-expression + imenu-case-fold-search nil) (run-hooks 'c-mode-common-hook) (run-hooks 'c++-mode-hook) (c-update-modeline)) @@ -282,6 +284,7 @@ c-access-key c-Java-access-key ;defun-prompt-regexp c-Java-defun-prompt-regexp imenu-generic-expression cc-imenu-java-generic-expression + imenu-case-fold-search nil ) (c-set-style "java") (run-hooks 'c-mode-common-hook)
--- a/lisp/progmodes/cplus-md.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/cplus-md.el Fri Dec 12 17:10:08 1997 +0000 @@ -340,6 +340,7 @@ (set (make-local-variable 'parse-sexp-ignore-comments) t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression c++-imenu-generic-expression) + (setq imenu-case-fold-search nil) (run-hooks 'c++-mode-hook) (if c++-electric-colon (define-key c++-mode-map ":" 'electric-c++-terminator)))
--- a/lisp/progmodes/dcl-mode.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/dcl-mode.el Fri Dec 12 17:10:08 1997 +0000 @@ -542,7 +542,8 @@ (setq comment-start-skip "\\$[ \t]*![ \t]*") (if (boundp 'imenu-generic-expression) - (setq imenu-generic-expression dcl-imenu-generic-expression)) + (progn (setq imenu-generic-expression dcl-imenu-generic-expression) + (setq imenu-case-fold-search t))) (setq imenu-create-index-function 'dcl-imenu-create-index-function) (make-local-variable 'dcl-comment-line-regexp)
--- a/lisp/progmodes/f90.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/f90.el Fri Dec 12 17:10:08 1997 +0000 @@ -877,6 +877,7 @@ (setq font-lock-defaults '(f90-font-lock-keywords nil t)) ;; Tell imenu how to handle f90. + (setq imenu-case-fold-search t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression f90-imenu-generic-expression)) (run-hooks 'f90-mode-hook)
--- a/lisp/progmodes/octave-mod.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/octave-mod.el Fri Dec 12 17:10:08 1997 +0000 @@ -515,7 +515,8 @@ (setq font-lock-defaults '(octave-font-lock-keywords nil nil)) (make-local-variable 'imenu-generic-expression) - (setq imenu-generic-expression octave-mode-imenu-generic-expression) + (setq imenu-generic-expression octave-mode-imenu-generic-expression + imenu-case-fold-search nil) (octave-add-octave-menu) (octave-initialize-completions)
--- a/lisp/progmodes/pascal.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/pascal.el Fri Dec 12 17:10:08 1997 +0000 @@ -371,6 +371,7 @@ ;; Imenu support (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression pascal-imenu-generic-expression) + (setq imenu-case-fold-search t) (run-hooks 'pascal-mode-hook))
--- a/lisp/progmodes/perl-mode.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/perl-mode.el Fri Dec 12 17:10:08 1997 +0000 @@ -331,6 +331,7 @@ ;; Tell imenu how to handle Perl. (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression perl-imenu-generic-expression) + (setq imenu-case-fold-search nil) (run-hooks 'perl-mode-hook)) ;; This is used by indent-for-comment
--- 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.
--- a/lisp/progmodes/sh-script.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/progmodes/sh-script.el Fri Dec 12 17:10:08 1997 +0000 @@ -829,6 +829,7 @@ sh-shell-variables nil sh-shell-variables-initialized nil imenu-generic-expression (sh-feature sh-imenu-generic-expression) + imenu-case-fold-search nil shell (sh-feature sh-variables)) (set-syntax-table (sh-feature sh-mode-syntax-table)) (while shell
--- a/lisp/textmodes/bibtex.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/textmodes/bibtex.el Fri Dec 12 17:10:08 1997 +0000 @@ -2530,6 +2530,7 @@ (bibtex-beginning-of-entry))) (setq imenu-generic-expression (list (list nil bibtex-reference-head bibtex-key-in-head))) + (setq imenu-case-fold-search t) (run-hooks 'bibtex-mode-hook)) (defun bibtex-submit-bug-report ()
--- a/lisp/textmodes/texinfo.el Thu Dec 11 07:25:16 1997 +0000 +++ b/lisp/textmodes/texinfo.el Fri Dec 12 17:10:08 1997 +0000 @@ -515,6 +515,7 @@ (setq words-include-escapes t) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression texinfo-imenu-generic-expression) + (setq imenu-case-fold-search nil) (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '(texinfo-font-lock-keywords t)) (make-local-variable 'outline-regexp)