release: 1.3.30

[lilypond.git] / lily / clef-engraver.cc

diff --git a/lily/clef-engraver.cc b/lily/clef-engraver.cc
index dd1f55e3504d3688dcdd7a895c903c7b75828a41..162cc06978b3e6bbc72917d050ea9d6d89e4c086 100644 (file)
--- a/lily/clef-engraver.cc
+++ b/lily/clef-engraver.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
+  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
 
   Mats Bengtsson <matsb@s3.kth.se>
 */
@@ -47,8 +47,6 @@ public:
 };
 
 
-ADD_THIS_TRANSLATOR (Clef_engraver);
-
 Clef_engraver::Clef_engraver()
 {
   clef_glyph_ = SCM_EOL;
@@ -75,8 +73,8 @@ Clef_engraver::set_type (String s)
   else
     octave_dir_ = CENTER;
 
-  SCM c = get_property ("supportedClefTypes",0);
-  SCM p = get_property ("clefPitches", 0);
+  SCM c = get_property ("supportedClefTypes");
+  SCM p = get_property ("clefPitches");
   
   if (gh_list_p (c))
     {
@@ -134,7 +132,7 @@ Clef_engraver::acknowledge_element (Score_element_info info)
 void
 Clef_engraver::do_creation_processing()
 {
-  SCM def = get_property ("defaultClef", 0);
+  SCM def = get_property ("defaultClef");
   if (gh_string_p (def))
     {
       set_type (ly_scm2string (def));
@@ -201,7 +199,7 @@ Clef_engraver::do_pre_move_processing()
     {
       if(to_boolean (clef_p_->remove_elt_property("non-default")))
         clef_p_->set_elt_property("visibility-lambda",
-                                  ly_eval_str ("all-visibility"));
+                                  ly_eval_str ("all-visible"));
       
       typeset_element (clef_p_);
       clef_p_ =0;
@@ -214,3 +212,8 @@ Clef_engraver::do_post_move_processing()
   clef_req_l_ = 0;
 }
 
+
+
+
+ADD_THIS_TRANSLATOR(Clef_engraver);
+