X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fgeneric-property.scm;h=296f70b8c261362b8b9f74a4e596b07e6bb32048;hb=74ee52246b9a7571a2d697df7aeaf3aa3bd09f45;hp=498f05bc4aee589fbd45117ce297d8ad49e9352e;hpb=45355174e981d977aa0b073e6316e4833b2e57c7;p=lilypond.git

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index 498f05bc4a..296f70b8c2 100644
--- 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)
 		     )
 	)
   )