+MAKE_SCHEME_CALLBACK (Hyphen_spanner,set_spacing_rods,1);
+SCM
+Hyphen_spanner::set_spacing_rods (SCM smob)
+{
+ Grob*me = unsmob_grob (smob);
+
+ Rod rod;
+ Spanner*sp = dynamic_cast<Spanner*> (me);
+ Item * l = sp->get_bound (LEFT);
+ Item * r = sp->get_bound (RIGHT);
+ rod.item_l_drul_[LEFT] = l;
+ rod.item_l_drul_[RIGHT] =r;
+ rod.distance_ =
+ gh_scm2double (me->get_grob_property ("minimum-length"))
+ + l->extent (l, X_AXIS)[RIGHT]
+ - r->extent (r, X_AXIS)[LEFT];