patch::: 1.3.43.jcn1

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

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index 554408caffd6325f867686baa9272a921c5e1d73..adbf00a735192e837f14a02b2674ff13bf9bac97 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -67,6 +67,11 @@
                     )
        ))
 
+(define generic-sustain-pedal-properties
+  (cons "Sustain_pedal" (list
+                        (list 'textScriptPadding number? 'padding)
+                        (list 'sustainPedalPadding number? 'padding))))
+
 (define generic-crescendo-properties
   (cons "Crescendo" (list
                     (list 'verticalDirection dir? 'direction)
@@ -198,6 +203,7 @@
    generic-slur-properties
    generic-beam-properties
    generic-text-properties
+   generic-sustain-pedal-properties
    generic-note-column-properties
    generic-script-properties
    generic-All-properties