Mercurial > emacs
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; }