diff src/font.c @ 101028:d3a67a9e7177

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

--- a/src/font.c	Fri Jan 09 14:11:38 2009 +0000
+++ b/src/font.c	Fri Jan 09 14:12:04 2009 +0000
@@ -4213,17 +4213,12 @@
     if (driver_list->driver->list_family)
       {
 	Lisp_Object val = driver_list->driver->list_family (frame);
-
-	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);
-	  }
+	Lisp_Object tail = 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;
 }