From: fred <fred>
Date: Wed, 27 Mar 2002 00:33:32 +0000 (+0000)
Subject: lilypond-1.3.111
X-Git-Tag: release/1.5.59~1096
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c4b4610dc53c611134d8742c984d54048dcfcaa;p=lilypond.git

lilypond-1.3.111
---

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 @@
+