From 6ac913499ad626ae399a2a24c528659688a92fbe Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 27 Apr 2013 15:01:18 +0200 Subject: [PATCH] Let \hspace and \vspace use Y-empty and X-empty spacing, respectively --- scm/define-markup-commands.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 1b81a508dd..9df3fe8a32 100755 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -693,7 +693,6 @@ Create a box of the same height as the space in the current font." (define-markup-command (hspace layout props amount) (number?) #:category align - #:properties ((word-space)) " @cindex creating horizontal spaces in text @@ -708,8 +707,7 @@ Create an invisible object taking up horizontal space @var{amount}. three } @end lilypond" - (let ((corrected-space (- amount word-space))) - (ly:make-stencil "" (cons 0 corrected-space) '(0 . 0)))) + (ly:make-stencil "" (cons 0 amount) empty-interval)) (define-markup-command (vspace layout props amount) (number?) @@ -732,7 +730,7 @@ of @var{amount} multiplied by 3. } @end lilypond" (let ((amount (* amount 3.0))) - (ly:make-stencil "" (cons 0 0) (cons 0 amount)))) + (ly:make-stencil "" empty-interval (cons 0 amount)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2