Fix X-translation of \fill-line markup.

fill-line currently only considers the extents of the stencils, not
their position relative to the X-origin; with the patch, they are
shifted according to the first stencil argument.

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 4a579444649ed902efa8f3cbd9e4ce339a1b4ff6..12dafee9cd17636d804aae78b7c899e1011e207c 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -850,8 +850,11 @@ If there are no arguments, return an empty stencil.
 
     (if (null? (remove ly:stencil-empty? orig-stencils))
        empty-stencil
-       (stack-stencils-padding-list X
-                                    RIGHT fill-space-normal line-stencils))))
+       (ly:stencil-translate-axis
+         (stack-stencils-padding-list X
+                                      RIGHT fill-space-normal line-stencils)
+         (- (car (ly:stencil-extent (car stencils) X)))
+         X))))
 
 (define-markup-command (line layout props args)
   (markup-list?)