- /* TODO
-
- move this mucketry into separation-spanner.
-
- */
- if (last_nonnil_break_malt_p_ && last_nonnil_musical_malt_p_)
- {
- cout << now_mom ().str () <<endl;
- Item *col = last_nonnil_break_malt_p_->column_l();
- if (!col)
- col = dynamic_cast<Item*> (unsmob_grob (get_property ("currentCommandColumn")));
-
- SCM between = col->get_grob_property ("between-cols");
-
- SCM left = last_nonnil_musical_malt_p_->column_l()->self_scm ();
- SCM right = get_property ("currentMusicalColumn"); // musical_malt_p_->column_l()->self_scm ();
- if (gh_pair_p (between))
- {
- /*
- ugh. set_..._x ()
- */
- if (Paper_column::rank_i (unsmob_grob (gh_car (between))) < Paper_column::rank_i (unsmob_grob (left)))
- gh_set_car_x (between, left);
- if (Paper_column::rank_i (unsmob_grob (gh_cdr (between))) > Paper_column::rank_i (unsmob_grob (right)))
- gh_set_cdr_x (between, right);
- }
- else
- {
- col->set_grob_property ("between-cols", gh_cons (left, right));
- }
- }
-
- if (last_step_musical_malt_p_)
- {
- Paper_column *col =
- last_step_musical_malt_p_->column_l();
- SCM newtup = gh_cons (last_step_musical_malt_p_->self_scm (),
- musical_malt_p_->self_scm ());
- col->set_grob_property ("spacing-sequence",
- gh_cons (newtup,
- col->get_grob_property ("spacing-sequence")));
- }
-
-
-
- last_nonnil_break_malt_p_ = 0;
- last_nonnil_musical_malt_p_ = musical_malt_p_;
- typeset_grob (musical_malt_p_);
- }
- last_step_musical_malt_p_ = musical_malt_p_;
- musical_malt_p_ =0;
+ if (Item *sp = current_spacings_.staff_spacing_)
+ if (Grob *col = unsmob_grob (get_property ("currentMusicalColumn")))
+ Pointer_group_interface::add_grob (sp, ly_symbol2scm ("right-items"), col);