X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstaff-symbol-referencer.cc;h=cfde343029a980f20dbf565ac060e20f9d26e4c7;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=aa45e55e7a4baf8c2b6bc0936fff409b98b3236b;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/lily/staff-symbol-referencer.cc b/lily/staff-symbol-referencer.cc
index aa45e55e7a..cfde343029 100644
--- 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. "