Mercurial > emacs
changeset 95373:4ab9c6d31251
(Fx_list_fonts): Make it return a list of font names.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 29 May 2008 01:41:20 +0000 |
| parents | ffc05d56ac32 |
| children | 045893728669 |
| files | src/xfaces.c |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfaces.c Wed May 28 20:23:06 2008 +0000 +++ b/src/xfaces.c Thu May 29 01:41:20 2008 +0000 @@ -1910,7 +1910,7 @@ { Lisp_Object font_spec; - Lisp_Object args[2]; + Lisp_Object args[2], tail; font_spec = font_spec_from_name (pattern); if (size) @@ -1919,6 +1919,8 @@ Ffont_put (font_spec, QCavgwidth, make_number (avgwidth)); } args[0] = Flist_fonts (font_spec, frame, maximum, Qnil); + for (tail = args[0]; CONSP (tail); tail = XCDR (tail)) + XSETCAR (tail, Ffont_xlfd_name (XCAR (tail), Qnil)); if (NILP (frame)) /* We don't have to check fontsets. */ return args[0];