From 13bf758b40b5fd03784adfd433566b6c7dc78316 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 9 Jan 2009 14:12:04 +0000 Subject: [PATCH] (Ffont_family_list): Return a list of strings, not symbols. --- src/font.c | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/src/font.c b/src/font.c index d88b1c592ff..3cb48e3df7c 100644 --- a/src/font.c +++ b/src/font.c @@ -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; } -- 2.39.2