From: Keith OHara <k-ohara5a5a@oco.net>
Date: Sat, 12 Oct 2013 05:44:44 +0000 (-0700)
Subject: stencil.scm: \hspace is not special in fill-line;issue 3504
X-Git-Tag: release/2.17.29-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=aa525a28382042e1a570bbc976e61e585e1fde3a;p=lilypond.git

stencil.scm: \hspace is not special in fill-line;issue 3504
---

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 0833382b61..0ce428a6e5 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -55,7 +55,12 @@ a list of @var{paddings}."
       empty-stencil
       (fold
        (lambda (next padding front)
-         (ly:stencil-stack front axis dir next padding))
+         (let ((offset (+ (- (interval-end (ly:stencil-extent front axis))
+                             (interval-start (ly:stencil-extent next axis)))
+                          padding)))
+           (ly:stencil-add
+             front
+             (ly:stencil-translate-axis next offset axis))))
        (car stils)
        (cdr stils)
        paddings)))