lilypond-0.0.13

diff --git a/src/simpleprint.cc b/src/simpleprint.cc
index eb8c80759ce1ea1653f14a53dc008650ec09d2c1..3a0ac3dde35da394a7fbb55cf734e039d08bb442 100644 (file)
--- 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';