From: fred <fred>
Date: Fri, 29 Nov 1996 14:01:49 +0000 (+0000)
Subject: lilypond-0.0.13
X-Git-Tag: release/1.5.59~6728
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c5e3bef8de4fd9732d2cc5c3caac460831d792e8;p=lilypond.git

lilypond-0.0.13
---

diff --git a/src/simpleprint.cc b/src/simpleprint.cc
index eb8c80759c..3a0ac3dde3 100644
--- a/src/simpleprint.cc
+++ b/src/simpleprint.cc
@@ -20,8 +20,10 @@ Simple_staff::get_TYPESET_item(Command *com)
 	s = new Bar(com->args[1]);	
     } else if (type == "METER") {
 	s = new Meter(arg);
-    } else if (type == "CLEF") {
-	s = new Clef_item;
+    } else if (type == "CLEF" ||type == "CURRENTCLEF") {
+	Clef_item * c = new Clef_item;
+	s = c;
+	c->change = (type == "CLEF");	
     }else{
 	WARN << "ignoring TYPESET command for " << type << '\n';