(Ffont_family_list): Return a list of strings, not symbols.

diff --git a/src/font.c b/src/font.c
index d88b1c592ffb68fc2fbd9390cf26db0b1a83ad0c..3cb48e3df7c8979170ec2b3ea0db45ee1f8c67ff 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -4213,17 +4213,12 @@ Optional argument FRAME, if non-nil, specifies the target frame.  */)
     if (driver_list->driver->list_family)
       {
        Lisp_Object val = driver_list->driver->list_family (frame);
+       Lisp_Object tail = list;
 
-       if (NILP (list))
-         list = val;
-       else
-         {
-           Lisp_Object tail = list;
-
-           for (; CONSP (val); val = XCDR (val))
-             if (NILP (Fmemq (XCAR (val), tail)))
-               list = Fcons (XCAR (val), list);
-         }
+       for (; CONSP (val); val = XCDR (val))
+         if (NILP (Fmemq (XCAR (val), tail))
+             && SYMBOLP (XCAR (val)))
+           list = Fcons (SYMBOL_NAME (XCAR (val)), list);
       }
   return list;
 }