- if (scm_is_string (name))
- {
- Real rmag
- = robust_scm2double (ly_chain_assoc_get (ly_symbol2scm ("font-magnification"), chain, SCM_BOOL_F),
- 1.0);
- Font_metric *fm = all_fonts_global->find_font (ly_scm2string (name));
-
- return find_scaled_font (layout, fm, rmag);
- }
- else if (scm_instance_p (name))