-
-/*
-ES TODO: Junk this when no more engraver uses try_music
-*/
-Music *
-Grob_info::ultimate_music_cause () const
-{
- SCM cause = grob_->self_scm ();
- while (unsmob_grob (cause))
- {
- cause = unsmob_grob (cause)->get_property ("cause");
- }
-
- Music *ret = unsmob_music (cause);
- if (ret)
- return ret;
- else
- {
- Stream_event *ev = unsmob_stream_event (cause);
- return unsmob_music (ev->get_property ("music-cause"));
- }
-}