# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 892845981 0
# Node ID 1f3afd7859624b02e30b9391feabd20fc56e1beb
# Parent  e9650ae37732cb1d932ac0f95b3d06c3a27b49b7
(scheme-imenu-generic-expression,
dsssl-imenu-generic-expression): Remove leading space in submenus.

diff -r e9650ae37732 -r 1f3afd785962 lisp/progmodes/scheme.el
--- 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'.")