From 9c4b4610dc53c611134d8742c984d54048dcfcaa Mon Sep 17 00:00:00 2001
From: fred <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