+/*
+ TODO: make stem X-parent of notehead.
+ */
+MAKE_SCHEME_CALLBACK (Note_head, stem_x_shift, 1);
+SCM
+Note_head::stem_x_shift (SCM smob)
+{
+ Grob *me = unsmob_grob (smob);
+ Grob *stem = unsmob_grob (me->get_object ("stem"));
+ if (stem)
+ (void) stem->get_property ("positioning-done");
+
+ return scm_from_int (0);
+}
+