From 14788fef7a4ca755755b06797af40221b5c0e8ec Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Thu, 22 May 2008 20:22:21 +0200 Subject: [PATCH] Markup commands: make \fontsize override the word-space property --- scm/define-markup-commands.scm | 2 ++ 1 file changed, 2 insertions(+) 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))) -- 2.39.5