script-column: earlier scripts support later scripts; issue 3683

diff --git a/lily/script-column.cc b/lily/script-column.cc
index 0a014a38008bb3e57aafb92a3671aa90b0c8ac95..8c963929bff878ac9773ca64b147fd0294a5ae84 100644 (file)
--- a/lily/script-column.cc
+++ b/lily/script-column.cc
@@ -152,11 +152,12 @@ Script_column::order_grobs (vector<Grob *> grobs)
             {
               SCM last_outside_staff = last->get_property ("outside-staff-priority");
               /*
-                if outside_staff_priority is missing for previous grob, just
-                use it as a support for the current grob
+                if outside_staff_priority is missing for previous grob,
+                use all the scripts so far as support for the current grob
               */
               if (!scm_is_number (last_outside_staff))
-                Side_position_interface::add_support (g, last);
+                for (SCM t = ss; !scm_is_eq (t, s); t = scm_cdr (t))
+                  Side_position_interface::add_support (g, unsmob_grob (scm_car (t)));
               /*
                 if outside_staff_priority is missing or is equal to original
                 outside_staff_priority of previous grob, set new