From: Han-Wen Nienhuys Date: Tue, 2 Mar 2004 23:16:12 +0000 (+0000) Subject: (interpret_markup): cache make-simple-markup X-Git-Tag: release/2.1.29~21 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=93ebef660e0f1999d67b202a592111eb95690a13;p=lilypond.git (interpret_markup): cache make-simple-markup --- diff --git a/ChangeLog b/ChangeLog index 252b59fa96..d67647e93a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-03-03 Han-Wen Nienhuys + + * lily/text-item.cc (interpret_markup): cache make-simple-markup + 2004-03-03 Jan Nieuwenhuizen * input/test/title-markup.ly (spaceTest): Add. diff --git a/Documentation/topdocs/NEWS.texi b/Documentation/topdocs/NEWS.texi index 7984a9b606..8d4c5b6d3b 100644 --- a/Documentation/topdocs/NEWS.texi +++ b/Documentation/topdocs/NEWS.texi @@ -18,7 +18,7 @@ Version 2.1.13 @itemize @bullet -@item Property functions can now be used as arguments of @code{set!}, +@item Property functions may be used as an argument to @code{set!}, for example @example diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc index 5e64c895b5..2fe3441307 100644 --- a/lily/paper-outputter.cc +++ b/lily/paper-outputter.cc @@ -61,7 +61,7 @@ void Paper_outputter::output_metadata (SCM scopes, Paper_def *paper) { SCM fields = SCM_EOL; - for (int i = dump_header_fieldnames_global.size (); i--;) + for (int i = dump_header_fieldnames_global.size (); i--; ) fields = gh_cons (ly_symbol2scm (dump_header_fieldnames_global[i].to_str0 ()), fields); diff --git a/lily/text-item.cc b/lily/text-item.cc index bfb24f1b53..29273cf662 100644 --- a/lily/text-item.cc +++ b/lily/text-item.cc @@ -25,7 +25,9 @@ Text_item::interpret_markup (SCM paper, SCM props, SCM markup) if (str.index_any (" \t\n\r") != -1) { /* Multi word string to line markup. */ - SCM proc = scm_c_eval_string ("make-simple-markup"); + static SCM proc; + if (!proc) + proc = scm_c_eval_string ("make-simple-markup"); return interpret_markup (paper, props, scm_call_1 (proc, markup)); }