- SCM order = get_property ("breakAlignOrder");
- for (; gh_pair_p (order); order = ly_cdr (order))
- {
- SCM p = scm_assoc (ly_car (order), column_alist_);
- if (gh_pair_p (p))
- {
- add_column (ly_cdr (p));
- column_alist_ = scm_assoc_remove_x (column_alist_, ly_car (order));
- }
- }
-
- for (SCM p = column_alist_; gh_pair_p (p); p = ly_cdr (p))
- {
- SCM pair = ly_car (p);
- add_column (ly_cdr (pair));
- }
-
-
- column_alist_ = SCM_EOL;
-
- if (align_l_)
- {
- typeset_grob (align_l_);
- align_l_ = 0;
- }