patch::: 1.3.45.jcn1

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

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index adbf00a735192e837f14a02b2674ff13bf9bac97..3f9e26304e111c4887b46ad2c56732aabbb092bd 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -64,6 +64,7 @@
                     (list 'textScriptPadding number? 'padding)
                     (list 'textVerticalAlignment dir? 'self-alignment-Y)
                     (list 'textHorizontalAlignment dir? 'self-alignment-X)
+                    (list 'textScriptWordSpace number? 'word-space)
                     )
        ))
 
@@ -72,6 +73,11 @@
                         (list 'textScriptPadding number? 'padding)
                         (list 'sustainPedalPadding number? 'padding))))
 
+(define generic-chord-name-properties
+  (cons "Chord_name" (list
+                     (list 'textScriptWordSpace number? 'word-space)
+                     (list 'chordNameWordSpace number? 'word-space))))
+
 (define generic-crescendo-properties
   (cons "Crescendo" (list
                     (list 'verticalDirection dir? 'direction)
@@ -217,6 +223,7 @@
    generic-timesig-properties
    generic-clef-properties
    generic-collision-properties
+   generic-sustain-pedal-properties
    generic-rest-collision-properties
    generic-volta-spanner-properties
 ;   generic-staff-symbol-properties
@@ -240,3 +247,8 @@
   (list generic-text-properties
   )
 )
+
+(define generic-chord-staff-properties
+  (list generic-chord-name-properties
+  )
+)