Font_metric *fm = unsmob_metrics (me->get_property ("font"));
if (!fm)
{
- SCM defaults
- = me->get_paper ()->lookup_variable (ly_symbol2scm ("font-defaults"));
- SCM chain = me->get_property_alist_chain (defaults);
+ SCM chain = music_font_alist_chain (me);
fm = select_font (me->get_paper (), chain);
me->set_property ("font", fm->self_scm ());
}
+SCM
+Font_interface::music_font_alist_chain (Grob *g)
+{
+ SCM defaults
+ = g->get_paper ()->lookup_variable (ly_symbol2scm ("font-defaults"));
+ return g->get_property_alist_chain (defaults);
+}
+
SCM
Font_interface::text_font_alist_chain (Grob *g)
{