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

diff --git a/src/ChangeLog b/src/ChangeLog
index 78afe35a8bbf22ed790973b214265aba3dc67ec7..ab9fbb7ffa3dfca076eb1004e3aae6b1d0ce11c8 100644 (file)
--- 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 093fde0b39aee6ee94d480a715d37e279967dd54..3afa17a1c21af2f0670c025dbd1e5f8ca6dded74 100644 (file)
--- 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];