From a4eec62604216f6d4efc86221466a5e883a0113b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 29 May 2008 01:44:39 +0000 Subject: [PATCH] (Fx_list_fonts): Make it return a list of font names. --- src/ChangeLog | 4 ++++ src/xfaces.c | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 78afe35a8bb..ab9fbb7ffa3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-05-29 Kenichi Handa + + * xfaces.c (Fx_list_fonts): Make it return a list of font names. + 2008-05-28 Jason Rumney * w32term.c (x_draw_glyph_string): Use clipmask if specified. diff --git a/src/xfaces.c b/src/xfaces.c index 093fde0b39a..3afa17a1c21 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -1910,7 +1910,7 @@ the WIDTH times as wide as FACE on FRAME. */) { 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 @@ the WIDTH times as wide as FACE on FRAME. */) 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]; -- 2.39.2