From 91232838287df64a45d08eb9d826b8e9b6343eb1 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 24 Mar 2013 13:34:09 +0100 Subject: [PATCH] Issue 1100: \line inside \concat should keep its 'word-space --- scm/define-markup-commands.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 251415d85b..98047b5741 100755 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -1307,9 +1307,13 @@ equivalent to @code{\"fi\"}. (interpret-markup layout (prepend-alist-chain 'word-space 0 props) - (make-line-markup (if (markup-command-list? args) - args - (concat-string-args args))))) + (make-line-markup + (make-override-lines-markup-list + (cons 'word-space + (chain-assoc-get 'word-space props)) + (if (markup-command-list? args) + args + (concat-string-args args)))))) (define (wordwrap-stencils stencils justify base-space line-width text-dir) -- 2.39.2