- // compute common refpoint of elements
- Grob *refp = me;
- for (SCM elts = first_elt; gh_pair_p (elts); elts = ly_cdr (elts))
+ SCM glyph = me->get_property ("glyph-name");
+
+ /* glyph may not be a string, when ME is killed by Hara Kiri in
+ between. */
+ if (!scm_is_string (glyph))
+ return SCM_EOL;
+
+ string glyph_string = ly_scm2string (glyph);
+
+ /* compose span_bar_mol */
+ vector<Interval> extents;
+ Grob *model_bar = 0;
+ for (vsize i = elements.size (); i--;)