patch::: 1.3.116.jcn2

[lilypond.git] / lily / dynamic-engraver.cc

diff --git a/lily/dynamic-engraver.cc b/lily/dynamic-engraver.cc
index 98e7d17c5f3ad37b271d88562b8f8b929adfdbe5..66f2e4a7327a476ce28ed07d40a3ca968597e1d7 100644 (file)
--- a/lily/dynamic-engraver.cc
+++ b/lily/dynamic-engraver.cc
@@ -254,7 +254,8 @@ Dynamic_engraver::create_grobs ()
              
              // urg.  Can't set this into Text_spanner, because we
              // only want this for (de)crescendi spanners.
-             cresc_p_->set_grob_property ("padding", gh_double2scm (1));
+             if (!gh_number_p (cresc_p_->get_grob_property ("padding")))
+               cresc_p_->set_grob_property ("padding", gh_double2scm (1));
              
              daddy_trans_l_->set_property (start_type
                                            + "Spanner", SCM_UNDEFINED);