diff options
| author | Dave Love <fx@gnu.org> | 1998-04-17 20:46:21 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1998-04-17 20:46:21 +0000 |
| commit | 93a7d76ffe7b25ac642144b7ada752a9dfa46cc0 (patch) | |
| tree | 383888c2b40470a56b508c37a3f4284f67bf040b | |
| parent | 499bfd5f86261e3b6d308130d4d1674f6f6dc9d9 (diff) | |
| download | emacs-93a7d76ffe7b25ac642144b7ada752a9dfa46cc0.tar.gz emacs-93a7d76ffe7b25ac642144b7ada752a9dfa46cc0.tar.bz2 emacs-93a7d76ffe7b25ac642144b7ada752a9dfa46cc0.zip | |
(scheme-imenu-generic-expression,
dsssl-imenu-generic-expression): Remove leading space in submenus.
| -rw-r--r-- | lisp/progmodes/scheme.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index ff4d2b381a9..2da6003a84e 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -113,9 +113,9 @@ (defvar scheme-imenu-generic-expression '((nil "^(define\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)*\\s-+(?\\(\\sw+\\)" 4) - (" Types" + ("Types" "^(define-class\\s-+(?\\(\\sw+\\)" 1) - (" Macros" + ("Macros" "^(\\(defmacro\\|define-macro\\|define-syntax\\)\\s-+(?\\(\\sw+\\)" 2)) "Imenu generic expression for Scheme mode. See `imenu-generic-expression'.") @@ -270,15 +270,15 @@ See `run-hooks'." ;; not sure it's the best way to organize it; perhaps one type ;; should be at the first level, though you don't see this anyhow if ;; it gets split up. - '((" Defines" + '(("Defines" "^(define\\s-+(?\\(\\sw+\\)" 1) - (" Modes" + ("Modes" "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1) - (" Elements" + ("Elements" ;; (element foo ...) or (element (foo bar ...) ...) ;; Fixme: Perhaps it should do `root'. "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1) - (" Declarations" + ("Declarations" "^(declare\\(-\\sw+\\)+\\>\\s-+\\(\\sw+\\)" 2)) "Imenu generic expression for DSSSL mode. See `imenu-generic-expression'.") |