procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(xfont_list): Try an alias.

Browse source
This commit is contained in:
Kenichi Handa 2008-06-03 05:57:28 +00:00
parent 913f26c2a4
commit 37470f4dfe
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/xfont.c
View file

@ -345,6 +345,7 @@ xfont_list (frame, spec)
}
if (NILP (list) && ! NILP (registry))
{
/* Try alternate registries. */
Lisp_Object alter;
if ((alter = Fassoc (SYMBOL_NAME (registry),
@ -365,6 +366,13 @@ xfont_list (frame, spec)
}
}
}
if (NILP (list))
{
/* Try alias. */
val = assq_no_quit (QCname, AREF (spec, FONT_EXTRA_INDEX));
if (CONSP (val) && STRINGP (XCDR (val)))
list = xfont_list_pattern (frame, display, SDATA (XCDR (val)));
}
return list;
}