+
+/*
+ Return the first Accidentals grob that we find in a note-head.
+ */
+Grob*
+Note_column::accidentals (Grob *me)
+{
+ SCM heads = me->get_grob_property ("note-heads");
+ for (;gh_pair_p (heads); heads =gh_cdr (heads))
+ {
+ Grob * h = unsmob_grob (gh_car (heads));
+ Grob *a = h ? unsmob_grob(h->get_grob_property ("accidentals")) : 0;
+ if (a)
+ return a;
+ }
+
+ return 0;
+}