alist chain too. This fixes font-name override for \markup.
{
SCM name = ly_assoc_chain (ly_symbol2scm ("font-name"), chain);
{
SCM name = ly_assoc_chain (ly_symbol2scm ("font-name"), chain);
- if (!gh_string_p (name))
+ if (!gh_pair_p (name) || !gh_string_p (gh_cdr (name)))
{
Paper_def * p = me->get_paper ();
{
Paper_def * p = me->get_paper ();
assert (gh_procedure_p (proc));
name = gh_call2 (proc, fonts, chain);
}
assert (gh_procedure_p (proc));
name = gh_call2 (proc, fonts, chain);
}
+ else
+ name = gh_cdr (name);
SCM mag = ly_assoc_chain (ly_symbol2scm ("font-magnification"), chain);
SCM mag = ly_assoc_chain (ly_symbol2scm ("font-magnification"), chain);