# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 968967262 0
# Node ID 417b6743c5fa4d5432b2568098111d5b69145dfe
# Parent  803eb50a24055533d714758c3782aa6fa35d1baa
(w32_per_char_metric): Handle non-TrueType fonts.

diff -r 803eb50a2405 -r 417b6743c5fa src/w32term.c
--- a/src/w32term.c	Thu Sep 14 21:32:40 2000 +0000
+++ b/src/w32term.c	Thu Sep 14 21:34:22 2000 +0000
@@ -1140,8 +1140,6 @@
 {
   /* The result metric information.  */
   XCharStruct *pcm;
-  ABC char_widths;
-  SIZE sz;
   BOOL retval;
 
   xassert (font && char2b);
@@ -1161,37 +1159,63 @@
   if (font->hfont)
     SelectObject (hdc, font->hfont);
 
-  if (font_type == UNICODE_FONT)
-    retval = GetCharABCWidthsW (hdc, *char2b, *char2b, &char_widths);
-  else if (font_type == ANSI_FONT)
-    retval = GetCharABCWidthsA (hdc, *char2b, *char2b, &char_widths);
-
-  if (retval)
-    {
-      pcm->width = char_widths.abcA + char_widths.abcB + char_widths.abcC;
-      pcm->lbearing = char_widths.abcA;
-      pcm->rbearing = pcm->width - char_widths.abcC;
+  if ((font->tm.tmPitchAndFamily & TMPF_TRUETYPE) != 0)
+    {
+      ABC char_widths;
+
+      if (font_type == UNICODE_FONT)
+	retval = GetCharABCWidthsW (hdc, *char2b, *char2b, &char_widths);
+      else if (font_type == ANSI_FONT)
+	retval = GetCharABCWidthsA (hdc, *char2b, *char2b, &char_widths);
+
+      if (retval)
+	{
+	  pcm->width = char_widths.abcA + char_widths.abcB + char_widths.abcC;
+	  pcm->lbearing = char_widths.abcA;
+	  pcm->rbearing = pcm->width - char_widths.abcC;
+	}
+      else
+	{
+	  /* Windows 9x does not implement GetCharABCWidthsW, so if that
+	     failed, try GetTextExtentPoint32W, which is implemented and
+	     at least gives us some of the info we are after (total
+	     character width). */
+	  SIZE sz;
+
+	  if (font_type == UNICODE_FONT)
+	    retval = GetTextExtentPoint32W (hdc, char2b, 1, &sz);
+
+	  if (retval)
+	    {
+	      pcm->width = sz.cx;
+	      pcm->rbearing = sz.cx;
+	      pcm->lbearing = 0;
+	    }
+	  else
+	    {
+	      xfree (pcm);
+	      return NULL;
+	    }
+	}
     }
   else
     {
-      /* Windows 9x does not implement GetCharABCWidthsW, so if that
-         failed, try GetTextExtentPoint32W, which is implemented and
-         at least gives us some of the info we are after (total
-         character width). */
-      if (font_type == UNICODE_FONT)
-          retval = GetTextExtentPoint32W (hdc, char2b, 1, &sz);
-
+      /* Do our best to deduce the desired metrics data for non-Truetype
+         fonts (generally, raster fonts).  */
+      INT char_width;
+
+      retval = GetCharWidth (hdc, *char2b, *char2b, &char_width);
       if (retval)
-        {
-          pcm->width = sz.cx;
-          pcm->rbearing = sz.cx;
-          pcm->lbearing = 0;
-        }
+	{
+	  pcm->width = char_width;
+	  pcm->rbearing = char_width;
+	  pcm->lbearing = 0;
+	}
       else
-        {
-          xfree (pcm);
-          return NULL;
-        }
+	{
+	  xfree (pcm);
+	  return NULL;
+	}
     }
 
   pcm->ascent = FONT_BASE (font);