lilypond-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 1/2] scm/define-markup-commands.scm: remove some unnecessary look


From: David Kastrup
Subject: [PATCH 1/2] scm/define-markup-commands.scm: remove some unnecessary lookups
Date: Tue, 17 Nov 2009 17:27:44 +0100

---
 scm/define-markup-commands.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 08c24bb..fec895d 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -732,7 +732,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
@@ -3198,7 +3197,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)
-- 
1.6.5.3.153.g0670





reply via email to

[Prev in Thread] Current Thread [Next in Thread]