Implements padding at right-broken hairpins that come up against span bars.

[lilypond.git] / lily / span-bar.cc

diff --git a/lily/span-bar.cc b/lily/span-bar.cc
index d64b6ba87c8f227aadb79a332cce0e7c4db7e27b..d9b9aa0cc3ff36ff5b42bc8ad102d6a5d2148616 100644 (file)
--- a/lily/span-bar.cc
+++ b/lily/span-bar.cc
@@ -222,8 +222,8 @@ Span_bar::notify_grobs_of_my_existence (Grob *me)
   vector_sort (sortable, Grob::vertical_less);
   for (vsize i = 0; i < sortable.size (); i++)
     sortable[i]->set_property ("has-span-bar",
-                               scm_cons (scm_from_bool (i != 0),
-                                         scm_from_bool (i != sortable.size () - 1)));
+                               scm_cons (i != sortable.size () - 1 ? me->self_scm () : scm_from_bool (false),
+                                         i != 0 ? me->self_scm () : scm_from_bool (false)));
 }
 
 Interval