- if (cluster_)
- {
- reqs_drul_[START]->origin ()->warning ("may not nest clusters");
- }
- else
- {
- cluster_ = new Spanner (get_property ("Cluster"));
- Grob *bound = unsmob_grob (get_property ("currentMusicalColumn"));
- cluster_->set_bound (LEFT, bound);
- announce_grob (cluster_, reqs_drul_[START]->self_scm ());
- }
- reqs_drul_[START] = 0;
+ add_bound_item (spanner_, beacon_);
+ Pointer_group_interface::add_grob (spanner_, ly_symbol2scm ("columns"), beacon_);