From: Keith OHara <k-ohara5a5a@oco.net>
Date: Fri, 29 Nov 2013 00:03:51 +0000 (-0800)
Subject: script-column: earlier scripts support later scripts; issue 3683
X-Git-Tag: release/2.19.0-1~101
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a1fa1c2c130af6035a8133fbe28eca5194a32ab2;p=lilypond.git

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

diff --git a/lily/script-column.cc b/lily/script-column.cc
index 0a014a3800..8c963929bf 100644
--- 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