patch::: 1.3.18.jcn3

[lilypond.git] / scm / generic-property.scm

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index 498f05bc4aee589fbd45117ce297d8ad49e9352e..296f70b8c261362b8b9f74a4e596b07e6bb32048 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -62,7 +62,15 @@
 (define generic-bar-properties
   (cons "Staff_bar" (list
                     (list 'barSize number? 'bar-size)
-                    ;(list 'glyph symbol? 'glyph)
+                    (list 'barType symbol? 'glyph)
+                    )
+       )
+  )    
+
+(define generic-span-bar-properties
+  (cons "Span_bar" (list
+                    (list 'barSize number? 'bar-size)
+                    (list 'barType symbol? 'glyph)
                     )
        )
   )