# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1212025280 0
# Node ID 4ab9c6d31251fdafa44e149452812be8709ca6b8
# Parent  ffc05d56ac32d77568a80d2789bf3b029d71fa7f
(Fx_list_fonts): Make it return a list of font names.

diff -r ffc05d56ac32 -r 4ab9c6d31251 src/xfaces.c
--- 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];