From: David Kastrup <dak@gnu.org>
Date: Sat, 27 Apr 2013 13:01:18 +0000 (+0200)
Subject: Let \hspace and \vspace use Y-empty and X-empty spacing, respectively
X-Git-Tag: release/2.17.19-1~5^2~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6ac913499ad626ae399a2a24c528659688a92fbe;p=lilypond.git

Let \hspace and \vspace use Y-empty and X-empty spacing, respectively
---

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))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;