Run `make grand-replace'.

[lilypond.git] / lily / note-name-engraver.cc

diff --git a/lily/note-name-engraver.cc b/lily/note-name-engraver.cc
index 1222654dab57ff445f795d7b072017acc2f59176..7acf90e419226268f3aa7e5fa4c28336706057d1 100644 (file)
--- a/lily/note-name-engraver.cc
+++ b/lily/note-name-engraver.cc
@@ -3,11 +3,12 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1999--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 1999--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "engraver.hh"
 #include "item.hh"
+#include "pitch.hh"
 #include "stream-event.hh"
 
 #include "translator.icc"
@@ -49,7 +50,7 @@ Note_name_engraver::process_music ()
   if (s.length ())
     {
       Item *t = make_item ("NoteName", events_[0]->self_scm ());
-      t->set_property ("text", scm_makfrom0str (s.c_str ()));
+      t->set_property ("text", ly_string2scm (s));
       texts_.push_back (t);
     }
 }
@@ -66,8 +67,15 @@ Note_name_engraver::Note_name_engraver ()
 }
 
 ADD_TRANSLATOR (Note_name_engraver,
-               /* doc */ "",
-               /* create */ "NoteName",
-               /* accept */ "note-event",
-               /* read */ "printOctaveNames",
-               /* write */ "");
+               /* doc */
+               "Print pitches as words.",
+
+               /* create */
+               "NoteName ",
+
+               /* read */
+               "printOctaveNames ",
+
+               /* write */
+               ""
+               );