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

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index d4d11a38ddfc2c3c52970a906eecc1c6460577b4..2cffb172e6451887c7ff4d584f5cac83a3918af5 100644 (file)
--- 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)))