From: Kenichi Handa <handa@m17n.org>
Date: Wed, 26 Jul 2006 00:53:14 +0000 (+0000)
Subject: (xfont_list): Don't try listing by :name property if the
X-Git-Tag: emacs-pretest-23.0.90~8295^2~805
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f221e7a9de90caff4c237c7ed7abffb8f9407b6;p=emacs.git

(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 ac60b96bb5f..a2b8c5d1d70 100644
--- 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;