From f9106cc6b59055efbe4eac0ee38177687c85c2e7 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 23 Nov 2009 22:41:20 +0000 Subject: [PATCH] scm/define-markup-commands.scm: remove some unnecessary lookups --- scm/define-markup-commands.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 449f3c7cdb..0910f81a4a 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -824,7 +824,6 @@ If there are no arguments, return an empty stencil. stencils)) (text-width (apply + text-widths)) (word-count (length stencils)) - (prop-line-width (chain-assoc-get 'line-width props #f)) (line-width (or line-width (ly:output-def-lookup layout 'line-width))) (fill-space (cond @@ -3290,7 +3289,7 @@ where @var{X} is the number of staff spaces." ((baseline-skip)) "Like @code{\\column}, but return a list of lines instead of a single markup. @code{baseline-skip} determines the space between each markup in @var{args}." - (space-lines (chain-assoc-get 'baseline-skip props) + (space-lines baseline-skip (interpret-markup-list layout props args))) (define-builtin-markup-list-command (override-lines layout props new-prop args) -- 2.39.5