''

diff --git a/lily/text-spanner.cc b/lily/text-spanner.cc
index 634c517769b2ca596f4ac31e7c0d2dd403bc1431..5187a0658e237e991473d963185cb8ed8343136e 100644 (file)
--- a/lily/text-spanner.cc
+++ b/lily/text-spanner.cc
@@ -205,6 +205,9 @@ Text_spanner::setup_pedal_bracket(Spanner *me)
   Drul_array<bool> w, broken;
   Drul_array<Real> height, width, shorten, r;
 
+  /*
+    FIXME: too many new property names.
+   */
   SCM pa = me->get_grob_property ("if-text-padding");
   SCM ew = me->get_grob_property ("edge-width");
   SCM eh = me->get_grob_property ("edge-height");
@@ -302,5 +305,5 @@ ADD_INTERFACE (Pianopedal,"piano-pedal-interface",
 
 ADD_INTERFACE (Text_spanner,"text-spanner-interface",
   "generic text spanner",
-  "dash-period dash-length edge-height edge-width edge-text shorten-pair type");
+  "dash-period if-text-padding dash-length edge-height edge-width edge-text shorten-pair type");
 

diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 7e6fca5c6151038ae94c4532025171dede34d07e..81e149a7fe38298e72b545436bdef56e90a2a653 100644 (file)
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -257,7 +257,6 @@ FIXME: also pair? (cons LEFT RIGHT)
 (grob-property-description 'non-default boolean? "not set because of existence of a bar?.")
 (grob-property-description 'note-width number? "unit for horizontal translation, measured in staff-space.")
 (grob-property-description 'note-heads list? "List of note head grobs")
-(grob-property-description 'number-gap number? "size of the gap for tohe number in a tuplet.")
 (grob-property-description 'number-threshold number? "only put numbers bigger than this threshold over multi measuer rest.")
 (grob-property-description 'old-accidentals list? "list of (pitch, accidental) pairs.")
 (grob-property-description 'padding number? "add this much extra space between objects that are next to each other.")
@@ -447,3 +446,5 @@ columns.
  "ideal beam slope, without damping.")
 (grob-property-description 'stem-info pair? "caching of stem parameters")
 (grob-property-description 'note-columns pair? "list of NoteColumn grobs.")
+
+(grob-property-description 'if-text-padding number? "padding in case texts are there.")