From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Thu, 22 May 2008 18:22:21 +0000 (+0200)
Subject: Markup commands: make \fontsize override the word-space property
X-Git-Tag: release/2.11.47-1~5^2~15
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=14788fef7a4ca755755b06797af40221b5c0e8ec;p=lilypond.git

Markup commands: make \fontsize override the word-space property
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index d4d11a38dd..2cffb172e6 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1059,10 +1059,12 @@ any sort of property supported by @rinternals{font-interface} and
   (number? markup?)
   font
   ((font-size 0)
+   (word-space 1)
    (baseline-skip 2))
   "Add @var{increment} to the font-size.  Adjust baseline skip accordingly."
   (let ((entries (list
                   (cons 'baseline-skip (* baseline-skip (magstep increment)))
+                  (cons 'word-space (* word-space (magstep increment)))
                   (cons 'font-size (+ font-size increment)))))
     (interpret-markup layout (cons entries props) arg)))