Issue 1100: \line inside \concat should keep its 'word-space

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 251415d85b522a9cdaa7d78647be249c7290ebc4..98047b57418ecd5d881ba955869cbdcaad2a7742 100755 (executable)
--- 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)