Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / staff-symbol-referencer.cc

diff --git a/lily/staff-symbol-referencer.cc b/lily/staff-symbol-referencer.cc
index aa45e55e7a4baf8c2b6bc0936fff409b98b3236b..cfde343029a980f20dbf565ac060e20f9d26e4c7 100644 (file)
--- a/lily/staff-symbol-referencer.cc
+++ b/lily/staff-symbol-referencer.cc
@@ -110,6 +110,7 @@ Staff_symbol_referencer::callback (SCM smob)
     {
       Real space = Staff_symbol_referencer::staff_space (me);
       off = scm_to_double (pos) * space / 2.0;
+      me->set_property ("staff-position", scm_from_int (0));
     }
 
   return scm_from_double (off);
@@ -156,13 +157,6 @@ compare_position (Grob *const &a, Grob *const &b)
               - Staff_symbol_referencer::get_position ((Grob *) b));
 }
 
-bool
-position_less (Grob *const &a, Grob *const &b)
-{
-  return Staff_symbol_referencer::get_position (a)
-    < Staff_symbol_referencer::get_position (b);
-}
-
 ADD_INTERFACE (Staff_symbol_referencer, "staff-symbol-referencer-interface",
               "An object whose Y position is meant relative to a staff "
               "symbol. "