# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1213964876 0
# Node ID 0304b3142c8430ef3a26bdcb1b924a483f4f2654
# Parent  1f3e20051363226bd4dd6acea53709509ad3b57d
(xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.

diff -r 1f3e20051363 -r 0304b3142c84 src/xftfont.c
--- a/src/xftfont.c	Fri Jun 20 09:20:09 2008 +0000
+++ b/src/xftfont.c	Fri Jun 20 12:27:56 2008 +0000
@@ -219,6 +219,23 @@
   val = AREF (entity, FONT_FAMILY_INDEX);
   if (! NILP (val))
     FcPatternAddString (pat, FC_FAMILY, (FcChar8 *) SDATA (SYMBOL_NAME (val)));
+  val = AREF (entity, FONT_FOUNDRY_INDEX);
+  if (! NILP (val))
+    FcPatternAddString (pat, FC_FOUNDRY, (FcChar8 *) SDATA (SYMBOL_NAME (val)));
+  val = AREF (entity, FONT_SPACING_INDEX);
+  if (! NILP (val))
+    FcPatternAddInteger (pat, FC_SPACING, XINT (val));
+  val = AREF (entity, FONT_DPI_INDEX);
+  if (! NILP (val))
+    {
+      double dbl = XINT (val);
+
+      FcPatternAddDouble (pat, FC_DPI, dbl);
+    }
+  val = AREF (entity, FONT_AVGWIDTH_INDEX);
+  if (INTEGERP (val) && XINT (val) == 0)
+    FcPatternAddBool (pat, FC_SCALABLE, FcTrue);
+
   for (tail = AREF (entity, FONT_EXTRA_INDEX); CONSP (tail); tail = XCDR (tail))
     {
       Lisp_Object key, val;