-Spanner*
-Hara_kiri_engraver::get_spanner () const
-{
- Spanner * sp = new Spanner (get_property ("RemoveEmptyVerticalGroup"));
-
- return sp;
-}
-
-void
-Hara_kiri_engraver::acknowledge_grob (Grob_info i)
-{
- Axis_group_engraver::acknowledge_grob (i);
- if (i.grob_->internal_has_interface (ly_symbol2scm ("rhythmic-grob-interface")))
- {
- Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob_);
- }
-}
-
-
-Hara_kiri_engraver::Hara_kiri_engraver()
-{
-}
-
-ENTER_DESCRIPTION(Hara_kiri_engraver,
-/* descr */ "Like Axis_group_engraver, but make a hara kiri spanner, and add "
-"interesting items (ie. note heads, lyric syllables and normal rests) ",
-/* creats*/ "RemoveEmptyVerticalGroup",
-/* accepts */ "",
-/* acks */ "grob-interface",
-/* reads */ "",
-/* write */ "");
-
-ENTER_DESCRIPTION(Axis_group_engraver,
-/* descr */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
-/* creats*/ "VerticalAxisGroup",
-/* accepts */ "",
-/* acks */ "grob-interface",
-/* reads */ "verticalExtent minimumVerticalExtent extraVerticalExtent",
-/* write */ "");