From: Chong Yidong Date: Fri, 9 Jan 2009 14:12:04 +0000 (+0000) Subject: (Ffont_family_list): Return a list of strings, not symbols. X-Git-Tag: emacs-pretest-23.0.90~588 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13bf758b40b5fd03784adfd433566b6c7dc78316;p=emacs.git (Ffont_family_list): Return a list of strings, not symbols. --- 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; }