*** empty log message ***

[lilypond.git] / lily / slur.cc

diff --git a/lily/slur.cc b/lily/slur.cc
index f695309f45281ff9316112a39f542e0cf1198b7b..7c0580e154520a7aaa8dddefa07f6789ce4ea68b 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -151,7 +151,8 @@ Slur::outside_slur_callback (SCM grob, SCM axis)
   Interval xext = robust_relative_extent (script, cx, X_AXIS);
 
 
-  Real slur_padding = 0.2;     // todo: slur property, script property?
+  Real slur_padding = robust_scm2double (me->get_property ("padding"),
+                                        0.2);  // todo: slur property, script property?
   yext.widen (slur_padding);
   
   Interval bezext (curve.control_[0][X_AXIS],