release: 1.1.45

[lilypond.git] / lily / align-element.cc

diff --git a/lily/align-element.cc b/lily/align-element.cc
index 82111b9e2ef0c6b20bbff485d4bd9b4822a3ecc8..0e0b5a5605a5ad652c858f3a3196f3a4879109af 100644 (file)
--- a/lily/align-element.cc
+++ b/lily/align-element.cc
@@ -97,6 +97,15 @@ Align_element::do_side_processing ()
        {
          dims.push (y);
          Score_element *e =dynamic_cast<Score_element*>(elem_l_arr_[i]);
+
+         SCM extra_dims = e->get_elt_property (extra_space_scm_sym);
+         if (extra_dims != SCM_BOOL_F)
+           {
+             extra_dims = SCM_CDR (extra_dims);
+             dims.top ()[LEFT] -= gh_scm2double (SCM_CAR (extra_dims));
+             dims.top ()[RIGHT] += gh_scm2double (SCM_CAR (extra_dims));
+           }
+
          elems.push (e);
        }
     }