Fix 732: center-column ignored left half of stencil extent -> collision with previous...

[lilypond.git] / scm / markup.scm

diff --git a/scm/markup.scm b/scm/markup.scm
index 6bd9fd6236c687950ff450b09ee2184badda92e8..3cf774d4a880bfd66f8e9cc8bd152411143aafa8 100644 (file)
--- a/scm/markup.scm
+++ b/scm/markup.scm
@@ -538,7 +538,7 @@ Uncovered - cheap-markup? is used."
               (ly:stencil? (cadr stencils)))
           (let* ((tail (stack-stencil-line space (cdr stencils)))
                  (head (car stencils))
-                 (xoff (+ space (cdr (ly:stencil-extent head X)))))
+                 (xoff (+ space (interval-length (ly:stencil-extent head X)))))
             (ly:stencil-add head
                              (ly:stencil-translate-axis tail xoff X)))
           (car stencils))