From: David Kastrup <dak@gnu.org>
Date: Mon, 12 Jun 2017 18:33:40 +0000 (+0200)
Subject: Issue 5146: Don't use \line in the implementation of \concat
X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=commitdiff_plain;h=0c201efa0df6baa2f3d0f452646de07216f97608

Issue 5146: Don't use \line in the implementation of \concat

It doesn't really make any sense to override word-space temporarily
and it does not make sense to heed text-direction when putting together
stuff without actual word boundaries.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 91b9391fe6..370d9de4f2 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1595,16 +1595,11 @@ equivalent to @code{\"fi\"}.
                         (cons arg result-list))))
                 '()
                 arg-list))
-
-  (interpret-markup layout
-                    (prepend-alist-chain 'word-space 0 props)
-                    (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))))))
+  (stack-stencil-line 0
+                      (interpret-markup-list layout props
+                                             (if (markup-command-list? args)
+                                                 args
+                                                 (concat-string-args args)))))
 
 (define (wordwrap-stencils stencils
                            justify base-space line-width text-dir)