changeset 101028:d3a67a9e7177

(Ffont_family_list): Return a list of strings, not symbols.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 09 Jan 2009 14:12:04 +0000
parents fab2a9b85392
children 09f5fecd8003
files src/font.c
diffstat 1 files changed, 6 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }