- SCM fonts = gh_cdr (scm_assoc (ly_symbol2scm ("fonts"), ss));
- SCM defaults = gh_cdr (scm_assoc (ly_symbol2scm ("font-defaults"),
- ss));
+SCM
+Font_interface::text_font_alist_chain (Grob *g)
+{
+ SCM defaults
+ = g->layout ()->lookup_variable (ly_symbol2scm ("text-font-defaults"));
+ if (defaults == SCM_UNDEFINED)
+ defaults = SCM_EOL;
+ return g->get_property_alist_chain (defaults);
+}