(ftfont_list): Handling of QCname fixed.

diff --git a/src/ftfont.c b/src/ftfont.c
index ecbe425140a51a876355dfbe84d98803fa94f238..82ea697b92e5cadf89adbf9f51c6f2f33a5d9540 100644 (file)
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -355,12 +355,9 @@ ftfont_list (frame, spec)
       Lisp_Object script = Qnil;
 
       tmp = assq_no_quit (QCname, extra);
-      if (CONSP (tmp))
-       {
-         font_name = XCDR (tmp);
-         if (SDATA (font_name)[0] != ':')
-           return val;
-       }
+      if (CONSP (tmp) && STRINGP (XCDR (tmp))
+         && SDATA (XCDR (tmp))[0] == ':')
+       font_name = XCDR (tmp);
       tmp = assq_no_quit (QCotf, extra);
       if (CONSP (tmp) && SYMBOLP (XCDR (tmp)))
        {