- SCM chain = Font_interface::font_alist_chain (me);
- me->set_property ("font-family", ly_symbol2scm ("number"));
-
-SCM sn =
- Text_item::interpret_markup (me->get_paper ()->self_scm(), chain,
- scm_makfrom0str (to_string (num).to_str0 ()));
-SCM sd =
- Text_item::interpret_markup (me->get_paper ()->self_scm(), chain,
- scm_makfrom0str (to_string (den).to_str0 ()));
+ SCM chain = me->get_property_alist_chain (Font_interface::text_font_alist_chain (me));
+ chain = scm_cons (scm_list_1 (scm_cons (ly_symbol2scm ("font-encoding"),
+ ly_symbol2scm ("fetaNumber"))),
+ chain);
+
+ SCM sn = Text_item::interpret_markup (me->get_paper ()->self_scm (), chain,
+ scm_makfrom0str (to_string (num).to_str0 ()));
+ SCM sd = Text_item::interpret_markup (me->get_paper ()->self_scm (), chain,
+ scm_makfrom0str (to_string (den).to_str0 ()));