# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1153875194 0
# Node ID 7536a4fa3a3bd45d8d20e0600b0e5ca53813535a
# Parent  fa17948a98df6d9b3f762380b6a6097d4a23f246
(xfont_list): Don't try listing by :name property if the
name is not for XLFD.

diff -r fa17948a98df -r 7536a4fa3a3b src/xfont.c
--- a/src/xfont.c	Mon Jul 24 04:45:44 2006 +0000
+++ b/src/xfont.c	Wed Jul 26 00:53:14 2006 +0000
@@ -396,7 +396,8 @@
 	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;