mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Chong Yidong 2009-01-09 14:12:04 +00:00
parent 058f0a510f
commit 13bf758b40
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/font.c
View File

@ -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;
}