# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1231510324 0
# Node ID d3a67a9e717762703f8e50d659c551001a32d9dc
# Parent  fab2a9b85392051ae036a8e4f2df4eddb330aa35
(Ffont_family_list): Return a list of strings, not symbols.

diff -r fab2a9b85392 -r d3a67a9e7177 src/font.c
--- 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;
 }