* w32font.c (w32font_open): Set font type to gdi.

* w32uniscribe.c (uniscribe_open): Set font type to uniscribe.

3 files changed, 6 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 019c5f05a23..6640bca3ab3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,9 @@
 
         * w32font.c (w32_enumfont_pattern_entity): Return height consistent
         with opened font.
+        (w32font_open): Set font type to gdi.
+
+        * w32uniscribe.c (uniscribe_open): Set font type to uniscribe.
 
 2008-07-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
diff --git a/src/w32font.c b/src/w32font.c
index 45d5742f4aa..77e949a6af0 100644
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -238,6 +238,7 @@ w32font_open (f, font_entity, pixel_size)
 
   font_object = font_make_object (VECSIZE (struct w32font_info),
                                   font_entity, pixel_size);
+  ASET (font_object, FONT_TYPE_INDEX, Qgdi);
 
   if (!w32font_open_internal (f, font_entity, pixel_size, font_object))
     {
diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index 8fb7eb60376..0e0a4e8d143 100644
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -125,6 +125,8 @@ uniscribe_open (f, font_entity, pixel_size)
   struct uniscribe_font_info *uniscribe_font
     = (struct uniscribe_font_info *) XFONT_OBJECT (font_object);
 
+  ASET (font_object, FONT_TYPE_INDEX, Quniscribe);
+
   if (!w32font_open_internal (f, font_entity, pixel_size, font_object))
     {
       return Qnil;