- for (SCM s = b->get_grob_property ("note-heads"); gh_pair_p (s); s =gh_cdr (s))
- ext.unite (unsmob_grob (gh_car (s))->extent (common, X_AXIS));
+ extract_grob_set (b, "note-heads", heads);
+ for (vsize i = 0; i < heads.size (); i++)
+ {
+ Grob *h = heads[i];
+ ext.unite (h->extent (common, X_AXIS));
+ Grob *dots = Rhythmic_head::get_dots (h);
+
+ if (dots && d == RIGHT)
+ ext.unite (dots->extent (common, X_AXIS));
+ }