[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/src font.c
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/src font.c |
Date: |
Fri, 09 Jan 2009 14:12:04 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/01/09 14:12:04
Modified files:
src : font.c
Log message:
(Ffont_family_list): Return a list of strings, not symbols.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/font.c?cvsroot=emacs&r1=1.105&r2=1.106
Patches:
Index: font.c
===================================================================
RCS file: /sources/emacs/emacs/src/font.c,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -b -r1.105 -r1.106
--- font.c 8 Jan 2009 13:34:44 -0000 1.105
+++ font.c 9 Jan 2009 14:12:04 -0000 1.106
@@ -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);
- }
+ if (NILP (Fmemq (XCAR (val), tail))
+ && SYMBOLP (XCAR (val)))
+ list = Fcons (SYMBOL_NAME (XCAR (val)), list);
}
return list;
}