X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fnote-name-engraver.cc;h=7acf90e419226268f3aa7e5fa4c28336706057d1;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=1222654dab57ff445f795d7b072017acc2f59176;hpb=c4c0ba811cd526f047de3f4d3c77abcc32a3e076;p=lilypond.git

diff --git a/lily/note-name-engraver.cc b/lily/note-name-engraver.cc
index 1222654dab..7acf90e419 100644
--- 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 */
+		""
+		);