From: Kenichi Handa <handa@m17n.org>
Date: Wed, 14 Jun 2006 00:38:48 +0000 (+0000)
Subject: (ftfont_pattern_entity): Fix typo.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0365b6f1dfc4fae478d0be768526741d795dfd8;p=emacs.git

(ftfont_pattern_entity): Fix typo.
(ftfont_list): Enforce FC_LANG in PATTERN to cancel the effect of
locale.
---

diff --git a/src/ftfont.c b/src/ftfont.c
index 5d70257beec..0decb5b4a2d 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -96,7 +96,7 @@ ftfont_pattern_entity (p, frame, registry, name)
 
   if (FcPatternGetString (p, FC_FILE, 0, &file) != FcResultMatch)
     return Qnil;
-  if (FcPatternGetCharSet (p, FC_CHARSET, 0, &charset) == FcResultMatch)
+  if (FcPatternGetCharSet (p, FC_CHARSET, 0, &charset) != FcResultMatch)
     charset = NULL;
 
   entity = Fmake_vector (make_number (FONT_ENTITY_MAX), null_string);
@@ -391,8 +391,13 @@ ftfont_list (frame, spec)
     {
       FcPattern *pat;
       FcResult result;
+      FcValue v;
       Lisp_Object entity;
 
+      if (FcPatternGet (pattern, FC_LANG, 0, &v) == FcResultNoMatch)
+	/* If no language is specified in PATTERN, fontconfig will use
+	   that of the current locale.  This cancel that effect.  */
+	FcPatternAddString (pattern, FC_LANG, (FcChar8 *) "en");
       FcConfigSubstitute (NULL, pattern, FcMatchPattern);
       FcDefaultSubstitute (pattern);
       pat = FcFontMatch (NULL, pattern, &result);