(w32font_open_internal): Prefer truetype fonts unless

'raster' specified.

2 files changed, 11 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 722c9fb0fb8..fbebde7a3a7 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-29  Jason Rumney  <jasonr@gnu.org>
+
+        * w32font.c (w32font_open_internal): Prefer truetype fonts unless
+        'raster' specified.
+
 2008-05-29  Juanma Barranquero  <lekktu@gmail.com>
 
         * xfaces.c (Fx_list_fonts, Finternal_copy_lisp_face):
diff --git a/src/w32font.c b/src/w32font.c
index 1828af108ee..78f8049d851 100644
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -772,6 +772,12 @@ w32font_open_internal (f, font_entity, pixel_size, font_object)
   bzero (&logfont, sizeof (logfont));
   fill_in_logfont (f, &logfont, font_entity);
 
+  /* Prefer truetype fonts, to avoid known problems with type1 fonts, and
+     limitations in bitmap fonts.  */
+  val = AREF (font_entity, FONT_FOUNDRY_INDEX);
+  if (!EQ (val, Qraster))
+    logfont.lfOutPrecision = OUT_TT_PRECIS;
+
   size = XINT (AREF (font_entity, FONT_SIZE_INDEX));
   if (!size)
     size = pixel_size;