From: Dave Love <fx@gnu.org>
Date: Fri, 17 Apr 1998 20:46:21 +0000 (+0000)
Subject: (scheme-imenu-generic-expression,
X-Git-Tag: emacs-20.3~1443
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93a7d76ffe7b25ac642144b7ada752a9dfa46cc0;p=emacs.git

(scheme-imenu-generic-expression,
dsssl-imenu-generic-expression): Remove leading space in submenus.
---

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'.")