- Grob *gr = unsmob_grob (grob);
- SCM_ASSERT_TYPE (gr, grob, SCM_ARG1, __FUNCTION__, "grob");
-
- return Font_interface::get_default_font (gr)->self_scm ();
+ SCM defaults
+ = g->layout ()->lookup_variable (ly_symbol2scm ("font-defaults"));
+ if (defaults == SCM_UNDEFINED)
+ defaults = SCM_EOL;
+ return g->get_property_alist_chain (defaults);