- TODO: switch off ignoring empty stuff?
- */
- edge->set_extent_callback (Grob::point_dimension_callback_proc, X_AXIS);
-
- /*
- We must have left-edge in the middle. Instrument-names
- are left to left-edge, so they don't enter the staff.
- */
- align_l_->set_grob_property ("self-alignment-X", edge->self_scm ());
-
- announce_grob(edge, SCM_EOL);
- column_alist_ = scm_assoc_set_x (column_alist_, edge_sym, edge->self_scm ());
- }
+ Translator_group *tg = origin->implementation ();
+ Engraver *random_source = dynamic_cast<Engraver *> (unsmob_translator (scm_car (tg->get_simple_trans_list ())));
+ if (!random_source)
+ random_source = this;