From 4b1f3e392230dfd31312e192afb02deaf0ad77d0 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 15 May 2013 23:20:47 +0200 Subject: [PATCH] Don't remove "empty" stencils in several situations Removing empty stencils was previously necessary to avoid spurious spacing in several circumstances that are properly catered for already by issue 3330. Consequently, removing those special cases is now feasible and leads to more consistent results. --- scm/define-markup-commands.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 253a5cc5a2..ecbe876ffa 100755 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -1266,9 +1266,7 @@ determines the space between markups in @var{args}. (let ((stencils (interpret-markup-list layout props args))) (if (= text-direction LEFT) (set! stencils (reverse stencils))) - (stack-stencil-line - word-space - (remove ly:stencil-empty? stencils)))) + (stack-stencil-line word-space stencils))) (define-markup-command (concat layout props args) (markup-list?) @@ -1639,8 +1637,7 @@ in @var{args}. } @end lilypond" (let ((arg-stencils (interpret-markup-list layout props args))) - (stack-lines -1 0.0 baseline-skip - (remove ly:stencil-empty? arg-stencils)))) + (stack-lines -1 0.0 baseline-skip arg-stencils))) (define-markup-command (dir-column layout props args) (markup-list?) -- 2.39.2