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

1 files changed, 5 insertions, 10 deletions

diff --git a/src/font.c b/src/font.c
index d88b1c592ff..3cb48e3df7c 100644
--- 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;
 }