From: David Kastrup <dak@gnu.org>
Date: Mon, 23 Nov 2009 22:41:20 +0000 (+0000)
Subject: scm/define-markup-commands.scm: remove some unnecessary lookups
X-Git-Tag: release/2.13.9-1~89
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f9106cc6b59055efbe4eac0ee38177687c85c2e7;p=lilypond.git

scm/define-markup-commands.scm: remove some unnecessary lookups
---

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)