Commit 13bf758b authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 058f0a51
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment