From 9c4b4610dc53c611134d8742c984d54048dcfcaa Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 00:33:32 +0000 Subject: [PATCH] lilypond-1.3.111 --- lily/instrument-name-engraver.cc | 12 ++++++------ scm/foo.scm | 1 + 2 files changed, 7 insertions(+), 6 deletions(-) create mode 100644 scm/foo.scm diff --git a/lily/instrument-name-engraver.cc b/lily/instrument-name-engraver.cc index a42695aa10..cac8ec76d4 100644 --- a/lily/instrument-name-engraver.cc +++ b/lily/instrument-name-engraver.cc @@ -65,14 +65,14 @@ Instrument_name_engraver::create_text (SCM txt) void Instrument_name_engraver::acknowledge_grob (Grob_info i) { - SCM s = get_property ("instrument"); + if (Bar::has_interface (i.elem_l_)) + { + SCM s = get_property ("instrument"); - if (now_mom () > Moment (0)) - s = get_property ("instr"); + if (now_mom () > Moment (0)) + s = get_property ("instr"); - if (gh_string_p (s)) - { - if (Bar::has_interface (i.elem_l_)) + if (gh_string_p (s)) { create_text (s); } diff --git a/scm/foo.scm b/scm/foo.scm new file mode 100644 index 0000000000..8b13789179 --- /dev/null +++ b/scm/foo.scm @@ -0,0 +1 @@ + -- 2.39.5