release: 1.3.21

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

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index 9e47ccbf307178aa7a0302b33360eb2884e30e3b..fcf6fcbfb69669eb57bbcf1ddb069183c458a2ac 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -6,8 +6,8 @@
         (list 'autoKneeGap number? 'auto-knee-gap)
         (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
         (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
-        (list 'beamSlope number? 'height)
-        (list 'beamVerticalPosition number? 'y-position)
+        (list 'beamHeight number? 'height-hs)
+        (list 'beamVerticalPosition number? 'y-position-hs)
         )
        )
   )
@@ -65,10 +65,10 @@
        )
   )    
 
-(define staff-symbol-properties
+(define generic-staff-symbol-properties
   (cons "Staff_symbol" (list
                        (list 'numberOfStaffLines number? 'line-count)
-                       (list 'staffLineLeading number? 'staff-space)
+                       (list 'staffSpace number? 'staff-space)
                        )
        )
   )
@@ -149,6 +149,7 @@
    generic-timesig-properties
    generic-clef-properties
    generic-collision-properties
+   generic-staff-symbol-properties
    generic-All-properties      
    )
   )