(Fx_list_fonts): Make it return a list of font names.

2 files changed, 7 insertions, 1 deletions

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  <handa@m17n.org>
+
+        * xfaces.c (Fx_list_fonts): Make it return a list of font names.
+
 2008-05-28  Jason Rumney  <jasonr@gnu.org>
 
         * 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];