From: Alexander Kobel <news@a-kobel.de>
Date: Fri, 22 Jan 2010 02:34:14 +0000 (-0800)
Subject: Fix X-translation of \fill-line markup.
X-Git-Tag: release/2.13.12-1~67
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2d1acca68f7a70afc916811c6121ab1b2f50ed83;p=lilypond.git

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 4a57944464..12dafee9cd 100644
--- 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?)