(ftfont_list): Handling of QCname fixed.

1 files changed, 3 insertions, 6 deletions

diff --git a/src/ftfont.c b/src/ftfont.c
index ecbe425140a..82ea697b92e 100644
--- 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)))
         {