+ SCM ell = SCM_EOL;
+ if (scm_hash_table_p (font_table) == SCM_BOOL_T)
+ {
+ SCM func = ly_lily_module_constant ("hash-table->alist");
+
+ for (SCM s = scm_call_1 (func, font_table); scm_is_pair (s);
+ s = scm_cdr (s))
+ {
+ SCM entry = scm_car (s);
+ for (SCM t = scm_cdr (entry); scm_is_pair (t); t = scm_cdr (t))
+ {
+ Font_metric *fm = unsmob_metrics (scm_cdar (t));
+
+ if (dynamic_cast<Modified_font_metric*> (fm)
+ || dynamic_cast<Pango_font*> (fm))
+ ell = scm_cons (fm->self_scm (), ell);
+ }
+ }