* The grand 2005-2006 replace.

[lilypond.git] / lily / note-head.cc

diff --git a/lily/note-head.cc b/lily/note-head.cc
index 76ce69b7065642d9738729baa8b6989ab83fdc05..ddbc6d0962734309d879c8ad2fbb874499f373e8 100644 (file)
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "note-head.hh"
@@ -75,12 +75,10 @@ internal_print (Grob *me, String *font_char)
 /*
   TODO: make stem X-parent of notehead. 
  */
-MAKE_SCHEME_CALLBACK (Note_head, stem_x_shift, 2);
+MAKE_SCHEME_CALLBACK (Note_head, stem_x_shift, 1);
 SCM
-Note_head::stem_x_shift (SCM smob, SCM axis)
+Note_head::stem_x_shift (SCM smob)
 {
-  (void) axis;
-  
   Grob *me = unsmob_grob (smob);
   Grob *stem = unsmob_grob (me->get_object ("stem"));
   if (stem)
@@ -153,6 +151,7 @@ ADD_INTERFACE (Note_head, "note-head-interface",
               /* properties */
               "note-names "
               "accidental-grob "
+              "glyph-name "
               "stem-attachment "
               "style "
               );