]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/align-element.cc
release: 1.1.46
[lilypond.git] / lily / align-element.cc
index 0e0b5a5605a5ad652c858f3a3196f3a4879109af..56011a3fe1b94198cf30a1ef56b7a124d9eaaa51 100644 (file)
@@ -86,7 +86,6 @@ Align_element::do_pre_processing ()
 void
 Align_element::do_side_processing ()
 {
-  sort_elements ();
   Array<Interval> dims;
 
   Link_array<Score_element> elems;
@@ -103,7 +102,7 @@ Align_element::do_side_processing ()
            {
              extra_dims = SCM_CDR (extra_dims);
              dims.top ()[LEFT] -= gh_scm2double (SCM_CAR (extra_dims));
-             dims.top ()[RIGHT] += gh_scm2double (SCM_CAR (extra_dims));
+             dims.top ()[RIGHT] += gh_scm2double (SCM_CDR (extra_dims));
            }
 
          elems.push (e);