- /*
- TODO: junk grob-info, and make a cause grob-property to store
- `causes' generically.
- */
-
- if (unsmob_music (cause) || unsmob_grob (cause))
- e->set_grob_property ("cause", cause);
-
- Grob_info i (e);
- if (!i.origin_trans_)
- i.origin_trans_ = this;
- get_daddy_grav ()->announce_grob (i);