changeset 90545:7536a4fa3a3b

(xfont_list): Don't try listing by :name property if the name is not for XLFD.
author Kenichi Handa <handa@m17n.org>
date Wed, 26 Jul 2006 00:53:14 +0000
parents fa17948a98df
children 5fd517758629
files src/xfont.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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;