Mercurial > emacs
changeset 21632:1f3afd785962
(scheme-imenu-generic-expression,
dsssl-imenu-generic-expression): Remove leading space in submenus.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 17 Apr 1998 20:46:21 +0000 |
| parents | e9650ae37732 |
| children | 185e8e424ee9 |
| files | lisp/progmodes/scheme.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/scheme.el Fri Apr 17 20:40:30 1998 +0000 +++ b/lisp/progmodes/scheme.el Fri Apr 17 20:46:21 1998 +0000 @@ -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 @@ ;; 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'.")