(xfont_list): Don't try listing by :name property if the

name is not for XLFD.

diff --git a/src/xfont.c b/src/xfont.c
index ac60b96bb5fc29e5dea4743fc2a79ff2c79fb64b..a2b8c5d1d706cdebfcbb8c9cebbadafe3b80637e 100644 (file)
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -396,7 +396,8 @@ xfont_list (frame, spec)
        font_name = XCDR (val);
     }
 
-  if (STRINGP (font_name))
+  if (STRINGP (font_name)
+      && ! strchr ((char *) SDATA (font_name), ':'))
     list = xfont_list_pattern (frame, display, (char *) SDATA (font_name));
   else if ((len = font_unparse_xlfd (spec, 0, name, 256)) < 0)
     return null_vector;