comparison src/w32term.c @ 94912:5b153bea483d

: Throughout the file, delete all USE_FONT_BACKEND conditionals. Don't check enable_font_backend. Delete all codes used only when USE_FONT_BACKEND is not defined. Surround non-used code by "#ifdef OLD_FONT" and "endif".

94911:f29483946da4

#include "w32heap.h"
#include "w32bdf.h"
#include <shellapi.h>

#ifdef USE_FONT_BACKEND
#include "font.h"
#endif	/* USE_FONT_BACKEND */


/* Fringe bitmaps.  */

static int max_fringe_bmp = 0;
static HBITMAP *fringe_bmp = 0;

			   Display Iterator
 ***********************************************************************/

/* Function prototypes of this page.  */

XCharStruct *w32_per_char_metric P_ ((XFontStruct *, wchar_t *, int));
static int w32_encode_char P_ ((int, wchar_t *, struct font_info *,
				struct charset *, int *));

      else
	w32_native_per_char_metric (font, &char2b, ANSI_FONT,
				    &font->max_bounds);
    }
}


/* Determine if a font is double byte. */
static int
w32_font_is_double_byte (XFontStruct *font)
{

  else
    ExtTextOutA (s->hdc, x, y, 0, NULL, (char *) chars,
		 nchars * charset_dim, NULL);
}


static void x_set_glyph_string_clipping P_ ((struct glyph_string *));
static void x_set_glyph_string_gc P_ ((struct glyph_string *));
static void x_draw_glyph_string_background P_ ((struct glyph_string *,
						int));

  PREPARE_FACE_FOR_DISPLAY (s->f, s->face);

  /* If font in this face is same as S->font, use it.  */
  if (s->font == s->face->font)
    s->gc = s->face->gc;
#ifdef USE_FONT_BACKEND
  else if (enable_font_backend)
    /* No need of setting a font for s->gc.  */
    s->gc = s->face->gc;
#endif	/* USE_FONT_BACKEND */
  else
    {
      /* Otherwise construct scratch_cursor_gc with values from FACE
	 but font FONT.  */
      XGCValues xgcv;

static INLINE void
x_set_glyph_string_clipping (s)
     struct glyph_string *s;
{
#ifdef USE_FONT_BACKEND
  RECT *r = s->clip;
#else
  RECT r[2];
#endif
  int n = get_glyph_string_clip_rects (s, r, 2);

  if (n == 1)
    w32_set_clip_rectangle (s->hdc, r);
  else if (n > 1)

        }
      DeleteObject (clip1);
      DeleteObject (clip2);
      DeleteObject (full_clip);
    }
#ifdef USE_FONT_BACKEND
    s->num_clips = n;
#endif	/* USE_FONT_BACKEND */
}

/* Set SRC's clipping for output of glyph string DST.  This is called
   when we are drawing DST's left_overhang or right_overhang only in
   the area of SRC.  */

x_set_glyph_string_clipping_exactly (src, dst)
     struct glyph_string *src, *dst;
{
  RECT r;

#ifdef USE_FONT_BACKEND
  if (enable_font_backend)
    {
      r.left = src->x;
      r.right = r.left + src->width;
      r.top = src->y;
      r.bottom = r.top + src->height;
      dst->clip[0] = r;
      dst->num_clips = 1;
    }
  else
    {
#endif	/* USE_FONT_BACKEND */
  struct glyph_string *clip_head = src->clip_head;
  struct glyph_string *clip_tail = src->clip_tail;

  /* This foces clipping just this glyph string.  */
  src->clip_head = src->clip_tail = src;
  get_glyph_string_clip_rect (src, &r);
  src->clip_head = clip_head, src->clip_tail = clip_tail;
#ifdef USE_FONT_BACKEND
    }
#endif	/* USE_FONT_BACKEND */
  w32_set_clip_rectangle (dst->hdc, &r);
}

/* RIF:
   Compute left and right overhang of glyph string S.  If S is a glyph
   string for a composition, assume overhangs don't exist.  */

static void
w32_compute_glyph_string_overhangs (s)
     struct glyph_string *s;
{
  if (s->cmp == NULL
      && s->first_glyph->type == CHAR_GLYPH)
    {
#ifdef USE_FONT_BACKEND
      if (enable_font_backend)
	{
	  unsigned *code = alloca (sizeof (unsigned) * s->nchars);
	  struct font *font = (struct font *) s->font_info;
	  struct font_metrics metrics;
	  int i;

	  for (i = 0; i < s->nchars; i++)
	    code[i] = s->char2b[i];
	  font->driver->text_extents (font, code, s->nchars, &metrics);
	  s->right_overhang = (metrics.rbearing > metrics.width
			       ? metrics.rbearing - metrics.width : 0);
	  s->left_overhang = metrics.lbearing < 0 ? -metrics.lbearing : 0;
	}
#else
  /* TODO: Windows does not appear to have a method for
     getting this info without getting the ABC widths for each
     individual character and working it out manually. */
#endif
    }
  else if (s->cmp)
    {
      s->right_overhang = s->cmp->rbearing - s->cmp->pixel_width;
      s->left_overhang = -s->cmp->lbearing;

      else
#endif
        if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width
	       || s->font_not_found_p
	       || s->extends_to_end_of_line_p
               || s->font->bdf
	       || cleartype_active
	       || force_p)
	{
	  x_clear_glyph_string_rect (s, s->x, s->y + box_line_width,
				     s->background_width,

  SetTextColor (s->hdc, s->gc->foreground);
  SetBkColor (s->hdc, s->gc->background);
  SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);

  if (s->font && s->font->hfont)
    old_font = SelectObject (s->hdc, s->font->hfont);

  /* Draw characters of S as rectangles if S's font could not be
     loaded. */
  if (s->font_not_found_p)
    {

          w32_draw_rectangle (s->hdc, s->gc, x, s->y, g->pixel_width - 1,
                              s->height - 1);
          x += g->pixel_width;
        }
    }
#ifdef USE_FONT_BACKEND
  else if (enable_font_backend)
    {
      int boff = s->font_info->baseline_offset;
      struct font *font = (struct font *) s->font_info;
      int y;

      if (s->font_info->vertical_centering)
	boff = VCENTER_BASELINE_OFFSET (s->font, s->f) - boff;

      y = s->ybase - boff;
      if (s->for_overlaps
	  || (s->background_filled_p && s->hl != DRAW_CURSOR))

      else
	font->driver->draw (s, 0, s->nchars, x, y, 1);
      if (s->face->overstrike)
	font->driver->draw (s, 0, s->nchars, x + 1, y, 0);
    }
#endif	/* USE_FONT_BACKEND */
  else
    {
      char *char1b = (char *) s->char2b;
      int boff = s->font_info->baseline_offset;

      if (s->font_info->vertical_centering)
	boff = VCENTER_BASELINE_OFFSET (s->font, s->f) - boff;

      /* If we can use 8-bit functions, condense S->char2b.  */
      if (!s->two_byte_p)
        for (i = 0; i < s->nchars; ++i)
          char1b[i] = XCHAR2B_BYTE2 (&s->char2b[i]);

      /* Draw text with TextOut and friends. */
      w32_text_out (s, x, s->ybase - boff, s->char2b, s->nchars);

      if (s->face->overstrike)
	{
	  /* For overstriking (to simulate bold-face), draw the
	     characters again shifted to the right by one pixel.  */
	  int old_BkMode = SetBkMode (s->hdc, TRANSPARENT);
	  w32_text_out (s, x + 1, s->ybase - boff, s->char2b, s->nchars);
	  if (old_BkMode && old_BkMode != TRANSPARENT)
	    SetBkMode (s->hdc, old_BkMode);
	}
    }
  if (s->font && s->font->hfont)
    SelectObject (s->hdc, old_font);
}

/* Draw the foreground of composite glyph string S.  */

  SetTextColor (s->hdc, s->gc->foreground);
  SetBkColor (s->hdc, s->gc->background);
  SetBkMode (s->hdc, TRANSPARENT);
  SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);

  if (s->font && s->font->hfont)
    old_font = SelectObject (s->hdc, s->font->hfont);

  /* Draw a rectangle for the composition if the font for the very
     first character of the composition could not be loaded.  */
  if (s->font_not_found_p)
    {
      if (s->gidx == 0)
        w32_draw_rectangle (s->hdc, s->gc, x, s->y, s->width - 1,
                            s->height - 1);
    }
#ifdef USE_FONT_BACKEND
  else if (enable_font_backend)
    {
      struct font *font = (struct font *) s->font_info;
      int y = s->ybase;
      int width = 0;

      if (s->cmp->method == COMPOSITION_WITH_GLYPH_STRING)
	{

		if (s->face->overstrike)
		  font->driver->draw (s, j, j + 1, xx + 1, yy, 0);
	      }
	}
    }
#endif	/* USE_FONT_BACKEND */
  else
    {
      for (i = 0, j = s->gidx; i < s->nchars; i++, j++)
	if (s->face)
          {
            w32_text_out (s, x + s->cmp->offsets[j * 2],
                          s->ybase - s->cmp->offsets[j * 2 + 1],
                          s->char2b + j, 1);
            if (s->face->overstrike)
	    w32_text_out (s, x + s->cmp->offsets[j * 2] + 1,
			  s->ybase - s->cmp->offsets[j + 1],
			  s->char2b + j, 1);
          }
    }

  if (s->font && s->font->hfont)
    SelectObject (s->hdc, old_font);
}


/* Brightness beyond which a color won't have its highlight brightness

        if (next->first_glyph->type != IMAGE_GLYPH)
          {
            x_set_glyph_string_gc (next);
            x_set_glyph_string_clipping (next);
            x_draw_glyph_string_background (next, 1);
#ifdef USE_FONT_BACKEND
            next->num_clips = 0;
#endif /* USE_FONT_BACKEND */
          }
    }

  /* Set up S->gc, set clipping and draw S.  */
  x_set_glyph_string_gc (s);

    }

  if (!s->for_overlaps)
    {
      /* Draw underline.  */
      if (s->face->underline_p
          && (s->font->bdf || !s->font->tm.tmUnderlined))
        {
          unsigned long h;
          int y;
	  /* Get the underline thickness.  Default is 1 pixel.  */
#ifdef USE_FONT_BACKEND
	  if (enable_font_backend)
	    /* In the future, we must use information of font.  */
	    h = 1;
	  else
#endif	/* USE_FONT_BACKEND */
            h = 1;

#ifdef USE_FONT_BACKEND
	  if (enable_font_backend)
	    {
	      if (s->face->font)
		/* In the future, we must use information of font.  */
		y = s->ybase + (s->face->font->max_bounds.descent + 1) / 2;
	      else
		y = s->y + s->height - h;
	    }
	  else
#endif
            {
                y = s->y + s->height - h;
                /* TODO: Use font information for positioning and
                   thickness of underline.  See OUTLINETEXTMETRIC,
                   and xterm.c.  Note: If you make this work,
                   don't forget to change the doc string of
                   x-use-underline_color-position-properties
                   below.  */
#if 0
              if (!x_underline_at_descent_line)
                {
                  ...
                }
#endif
            }
          if (s->face->underline_defaulted_p)
            {
              w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
                             y, s->background_width, 1);
            }

            }
        }

      /* Draw strike-through.  */
      if (s->face->strike_through_p
          && (s->font->bdf || !s->font->tm.tmStruckOut))
        {
          unsigned long h = 1;
          unsigned long dy = (s->height - h) / 2;

          if (s->face->strike_through_color_defaulted_p)

		  x_draw_glyph_string_foreground (prev);
		else
		  x_draw_composite_glyph_string_foreground (prev);
                w32_set_clip_rectangle (prev->hdc, NULL);
		prev->hl = save;
#ifdef USE_FONT_BACKEND
		prev->num_clips = 0;
#endif	/* USE_FONT_BACKEND */
	      }
	}

      if (s->next)
	{

		  x_draw_glyph_string_foreground (next);
		else
		  x_draw_composite_glyph_string_foreground (next);
                w32_set_clip_rectangle (next->hdc, NULL);
		next->hl = save;
#ifdef USE_FONT_BACKEND
		next->num_clips = 0;
#endif	/* USE_FONT_BACKEND */
	      }
	}
    }

  /* Reset clipping.  */
  w32_set_clip_rectangle (s->hdc, NULL);
#ifdef USE_FONT_BACKEND
  s->num_clips = 0;
#endif	/* USE_FONT_BACKEND */
}


/* Shift display to make room for inserted glyphs.   */

 */


/* Changing the font of the frame.  */

/* Give frame F the font named FONTNAME as its default font, and
   return the full name of that font.  FONTNAME may be a wildcard
   pattern; in that case, we choose some font that fits the pattern.
   The return value shows which font we chose.  */

  /* Since x_new_font doesn't update any fontset information, do it now.  */
  FRAME_FONTSET(f) = fontset;

  return fontset_name (fontset);
}

#ifdef USE_FONT_BACKEND
Lisp_Object
x_new_fontset2 (f, fontset, font_object)
     struct frame *f;
     int fontset;
     Lisp_Object font_object;
{
  struct font *font = XSAVE_VALUE (font_object)->pointer;

  if (FRAME_FONT_OBJECT (f) == font)
    /* This font is already set in frame F.  There's nothing more to
       do.  */
    return fontset_name (fontset);

  BLOCK_INPUT;

  FRAME_FONT_OBJECT (f) = font;
  FRAME_FONT (f) = font->font.font;
  FRAME_BASELINE_OFFSET (f) = font->font.baseline_offset;
  FRAME_FONTSET (f) = fontset;

  FRAME_COLUMN_WIDTH (f) = font->font.average_width;
  FRAME_SPACE_WIDTH (f) = font->font.space_width;
  FRAME_LINE_HEIGHT (f) = font->font.height;

  compute_fringe_widths (f, 1);

  /* Compute the scroll bar width in character columns.  */
  if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0)

  UNBLOCK_INPUT;

  return fontset_name (fontset);
}
#endif	/* USE_FONT_BACKEND */


/***********************************************************************
	TODO: W32 Input Methods
 ***********************************************************************/

{
  struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);

  BLOCK_INPUT;

#ifdef USE_FONT_BACKEND
      /* We must free faces before destroying windows because some
	 font-driver (e.g. xft) access a window while finishing a
	 face.  */
      if (enable_font_backend
	  && FRAME_FACE_CACHE (f))
	free_frame_faces (f);
#endif	/* USE_FONT_BACKEND */

  if (FRAME_W32_WINDOW (f))
    my_destroy_window (f, FRAME_W32_WINDOW (f));

  free_frame_menubar (f);


/***********************************************************************
				Fonts
 ***********************************************************************/

/* The following functions are listed here to help diff stay in step
   with xterm.c.  See w32fns.c for definitions.

x_get_font_info (f, font_idx)
x_list_fonts (f, pattern, size, maxnames)

x_load_font (f, fontname, size)
x_query_font (f, fontname)
x_find_ccl_program (fontp)

*/

/***********************************************************************
			    Initialization
 ***********************************************************************/

  w32_get_glyph_overhangs,
  x_fix_overlapping_area,
  w32_draw_fringe_bitmap,
  w32_define_fringe_bitmap,
  w32_destroy_fringe_bitmap,
  w32_per_char_metric,
  w32_encode_char,
  w32_compute_glyph_string_overhangs,
  x_draw_glyph_string,
  w32_define_frame_cursor,
  w32_clear_frame_area,
  w32_draw_window_cursor,

     delete_terminal calls us back when it deletes our last frame.  */
  if (!terminal->name)
    return;

  BLOCK_INPUT;
  /* Free the fonts in the font table.  */
  for (i = 0; i < dpyinfo->n_fonts; i++)
    if (dpyinfo->font_table[i].name)
      {
        DeleteObject (((XFontStruct*)(dpyinfo->font_table[i].font))->hfont);
      }

  x_delete_display (dpyinfo);
  UNBLOCK_INPUT;
}

    }
    dpyinfo->color_list = NULL;
    if (dpyinfo->palette)
      DeleteObject(dpyinfo->palette);
  }
  xfree (dpyinfo->font_table);
  xfree (dpyinfo->w32_id_name);

  w32_reset_fringes ();
}


94912:5b153bea483d

#include "w32heap.h"
#include "w32bdf.h"
#include <shellapi.h>

#include "font.h"
#include "w32font.h"

/* Fringe bitmaps.  */

static int max_fringe_bmp = 0;
static HBITMAP *fringe_bmp = 0;

			   Display Iterator
 ***********************************************************************/

/* Function prototypes of this page.  */

#if OLD_FONT

XCharStruct *w32_per_char_metric P_ ((XFontStruct *, wchar_t *, int));
static int w32_encode_char P_ ((int, wchar_t *, struct font_info *,
				struct charset *, int *));

      else
	w32_native_per_char_metric (font, &char2b, ANSI_FONT,
				    &font->max_bounds);
    }
}

/* Determine if a font is double byte. */
static int
w32_font_is_double_byte (XFontStruct *font)
{

  else
    ExtTextOutA (s->hdc, x, y, 0, NULL, (char *) chars,
		 nchars * charset_dim, NULL);
}

#endif	/* OLD_FONT */

static void x_set_glyph_string_clipping P_ ((struct glyph_string *));
static void x_set_glyph_string_gc P_ ((struct glyph_string *));
static void x_draw_glyph_string_background P_ ((struct glyph_string *,
						int));

  PREPARE_FACE_FOR_DISPLAY (s->f, s->face);

  /* If font in this face is same as S->font, use it.  */
  if (s->font == s->face->font)
    s->gc = s->face->gc;
  else
    {
      /* Otherwise construct scratch_cursor_gc with values from FACE
	 but font FONT.  */
      XGCValues xgcv;

static INLINE void
x_set_glyph_string_clipping (s)
     struct glyph_string *s;
{
  RECT *r = s->clip;
  int n = get_glyph_string_clip_rects (s, r, 2);

  if (n == 1)
    w32_set_clip_rectangle (s->hdc, r);
  else if (n > 1)

        }
      DeleteObject (clip1);
      DeleteObject (clip2);
      DeleteObject (full_clip);
    }
    s->num_clips = n;
}

/* Set SRC's clipping for output of glyph string DST.  This is called
   when we are drawing DST's left_overhang or right_overhang only in
   the area of SRC.  */

x_set_glyph_string_clipping_exactly (src, dst)
     struct glyph_string *src, *dst;
{
  RECT r;

  r.left = src->x;
  r.right = r.left + src->width;
  r.top = src->y;
  r.bottom = r.top + src->height;
  dst->clip[0] = r;
  dst->num_clips = 1;
#if OLD_FONT
    {
  struct glyph_string *clip_head = src->clip_head;
  struct glyph_string *clip_tail = src->clip_tail;

  /* This foces clipping just this glyph string.  */
  src->clip_head = src->clip_tail = src;
  get_glyph_string_clip_rect (src, &r);
  src->clip_head = clip_head, src->clip_tail = clip_tail;
    }
#endif	/* OLD_FONT */
  w32_set_clip_rectangle (dst->hdc, &r);
}

/* RIF:
   Compute left and right overhang of glyph string S.  */

static void
w32_compute_glyph_string_overhangs (s)
     struct glyph_string *s;
{
  if (s->cmp == NULL
      && s->first_glyph->type == CHAR_GLYPH
      && !s->font_not_found_p)
    {
      unsigned *code = alloca (sizeof (unsigned) * s->nchars);
      struct font *font = s->font;
      struct font_metrics metrics;
      int i;

      for (i = 0; i < s->nchars; i++)
	code[i] = s->char2b[i];
      font->driver->text_extents (font, code, s->nchars, &metrics);
      s->right_overhang = (metrics.rbearing > metrics.width
			   ? metrics.rbearing - metrics.width : 0);
      s->left_overhang = metrics.lbearing < 0 ? -metrics.lbearing : 0;
    }
  else if (s->cmp)
    {
      s->right_overhang = s->cmp->rbearing - s->cmp->pixel_width;
      s->left_overhang = -s->cmp->lbearing;

      else
#endif
        if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width
	       || s->font_not_found_p
	       || s->extends_to_end_of_line_p
	       || FONT_COMPAT (s->font)->bdf
	       || cleartype_active
	       || force_p)
	{
	  x_clear_glyph_string_rect (s, s->x, s->y + box_line_width,
				     s->background_width,

  SetTextColor (s->hdc, s->gc->foreground);
  SetBkColor (s->hdc, s->gc->background);
  SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);

  if (s->font && FONT_COMPAT (s->font)->hfont)
    old_font = SelectObject (s->hdc, FONT_COMPAT (s->font)->hfont);

  /* Draw characters of S as rectangles if S's font could not be
     loaded. */
  if (s->font_not_found_p)
    {

          w32_draw_rectangle (s->hdc, s->gc, x, s->y, g->pixel_width - 1,
                              s->height - 1);
          x += g->pixel_width;
        }
    }
  else
    {
      int boff = s->font->baseline_offset;
      struct font *font = s->font;
      int y;

      if (s->font->vertical_centering)
	boff = VCENTER_BASELINE_OFFSET (s->font, s->f) - boff;

      y = s->ybase - boff;
      if (s->for_overlaps
	  || (s->background_filled_p && s->hl != DRAW_CURSOR))

      else
	font->driver->draw (s, 0, s->nchars, x, y, 1);
      if (s->face->overstrike)
	font->driver->draw (s, 0, s->nchars, x + 1, y, 0);
    }

  if (s->font && FONT_COMPAT (s->font)->hfont)
    SelectObject (s->hdc, old_font);
}

/* Draw the foreground of composite glyph string S.  */

  SetTextColor (s->hdc, s->gc->foreground);
  SetBkColor (s->hdc, s->gc->background);
  SetBkMode (s->hdc, TRANSPARENT);
  SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);

  if (s->font && FONT_COMPAT (s->font)->hfont)
    old_font = SelectObject (s->hdc, FONT_COMPAT (s->font)->hfont);

  /* Draw a rectangle for the composition if the font for the very
     first character of the composition could not be loaded.  */
  if (s->font_not_found_p)
    {
      if (s->gidx == 0)
        w32_draw_rectangle (s->hdc, s->gc, x, s->y, s->width - 1,
                            s->height - 1);
    }

    {
      struct font *font = s->font;
      int y = s->ybase;
      int width = 0;

      if (s->cmp->method == COMPOSITION_WITH_GLYPH_STRING)
	{

		if (s->face->overstrike)
		  font->driver->draw (s, j, j + 1, xx + 1, yy, 0);
	      }
	}
    }

  if (s->font && FONT_COMPAT (s->font)->hfont)
    SelectObject (s->hdc, old_font);
}


/* Brightness beyond which a color won't have its highlight brightness

        if (next->first_glyph->type != IMAGE_GLYPH)
          {
            x_set_glyph_string_gc (next);
            x_set_glyph_string_clipping (next);
            x_draw_glyph_string_background (next, 1);
            next->num_clips = 0;
          }
    }

  /* Set up S->gc, set clipping and draw S.  */
  x_set_glyph_string_gc (s);

    }

  if (!s->for_overlaps)
    {
      /* Draw underline.  */
      if (s->face->underline_p)
        {
          unsigned long thickness, position;
          int y;

          if (s->prev && s->prev->face->underline_p)
            {
              /* We use the same underline style as the previous one.  */
              thickness = s->prev->underline_thickness;
              position = s->prev->underline_position;
            }
          else
            {
              /* Get the underline thickness.  Default is 1 pixel.  */
              if (s->font && s->font->underline_thickness > 0)
                thickness = s->font->underline_thickness;
              else
                thickness = 1;
              if (x_underline_at_descent_line)
                position = (s->height - thickness) - s->ybase;
              else
                {
                /* Get the underline position.  This is the recommended
                   vertical offset in pixels from the baseline to the top of
                   the underline.  This is a signed value according to the
                   specs, and its default is

                   ROUND ((maximum_descent) / 2), with
                   ROUND (x) = floor (x + 0.5)  */

                if (x_use_underline_position_properties
                    && s->font && s->font->underline_position >= 0)
                  position = s->font->underline_position;
                else if (s->font)
                  position = (s->font->descent + 1) / 2;
                }
              s->underline_thickness = thickness;
              s->underline_position =position;
            }
          y = s->ybase + position;
          if (s->face->underline_defaulted_p)
            {
              w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
                             y, s->background_width, 1);
            }

            }
        }

      /* Draw strike-through.  */
      if (s->face->strike_through_p
          && (FONT_COMPAT (s->font)->bdf
	      || !FONT_COMPAT (s->font)->tm.tmStruckOut))
        {
          unsigned long h = 1;
          unsigned long dy = (s->height - h) / 2;

          if (s->face->strike_through_color_defaulted_p)

		  x_draw_glyph_string_foreground (prev);
		else
		  x_draw_composite_glyph_string_foreground (prev);
                w32_set_clip_rectangle (prev->hdc, NULL);
		prev->hl = save;
		prev->num_clips = 0;
	      }
	}

      if (s->next)
	{

		  x_draw_glyph_string_foreground (next);
		else
		  x_draw_composite_glyph_string_foreground (next);
                w32_set_clip_rectangle (next->hdc, NULL);
		next->hl = save;
		next->num_clips = 0;
	      }
	}
    }

  /* Reset clipping.  */
  w32_set_clip_rectangle (s->hdc, NULL);
  s->num_clips = 0;
}


/* Shift display to make room for inserted glyphs.   */

 */


/* Changing the font of the frame.  */

#if OLD_FONT

/* Give frame F the font named FONTNAME as its default font, and
   return the full name of that font.  FONTNAME may be a wildcard
   pattern; in that case, we choose some font that fits the pattern.
   The return value shows which font we chose.  */

  /* Since x_new_font doesn't update any fontset information, do it now.  */
  FRAME_FONTSET(f) = fontset;

  return fontset_name (fontset);
}
#endif	/* OLD_FONT */


Lisp_Object
x_new_font (f, font_object, fontset)
     struct frame *f;
     Lisp_Object font_object;
     int fontset;
{
  struct font *font = XFONT_OBJECT (font_object);

  if (fontset < 0)
    fontset = fontset_from_font (font_object);
  FRAME_FONTSET (f) = fontset;
  if (FRAME_FONT (f) == font)
    /* This font is already set in frame F.  There's nothing more to
       do.  */
    return fontset_name (fontset);

  BLOCK_INPUT;

  FRAME_FONT (f) = font;
  FRAME_BASELINE_OFFSET (f) = font->baseline_offset;
  FRAME_COLUMN_WIDTH (f) = font->average_width;
  FRAME_SPACE_WIDTH (f) = font->space_width;
  FRAME_LINE_HEIGHT (f) = font->height;

  compute_fringe_widths (f, 1);

  /* Compute the scroll bar width in character columns.  */
  if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0)

  UNBLOCK_INPUT;

  return fontset_name (fontset);
}


/***********************************************************************
	TODO: W32 Input Methods
 ***********************************************************************/

{
  struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);

  BLOCK_INPUT;

  /* We must free faces before destroying windows because some
     font-driver (e.g. xft) access a window while finishing a
     face.  */
  if (FRAME_FACE_CACHE (f))
    free_frame_faces (f);

  if (FRAME_W32_WINDOW (f))
    my_destroy_window (f, FRAME_W32_WINDOW (f));

  free_frame_menubar (f);


/***********************************************************************
				Fonts
 ***********************************************************************/

#if OLD_FONT

/* The following functions are listed here to help diff stay in step
   with xterm.c.  See w32fns.c for definitions.

x_get_font_info (f, font_idx)
x_list_fonts (f, pattern, size, maxnames)

x_load_font (f, fontname, size)
x_query_font (f, fontname)
x_find_ccl_program (fontp)

*/

#endif	/* OLD_FONT */


/***********************************************************************
			    Initialization
 ***********************************************************************/

  w32_get_glyph_overhangs,
  x_fix_overlapping_area,
  w32_draw_fringe_bitmap,
  w32_define_fringe_bitmap,
  w32_destroy_fringe_bitmap,
#if OLD_FONT
  w32_per_char_metric,
  w32_encode_char,
#endif
  w32_compute_glyph_string_overhangs,
  x_draw_glyph_string,
  w32_define_frame_cursor,
  w32_clear_frame_area,
  w32_draw_window_cursor,

     delete_terminal calls us back when it deletes our last frame.  */
  if (!terminal->name)
    return;

  BLOCK_INPUT;
#if OLD_FONT
  /* Free the fonts in the font table.  */
  for (i = 0; i < dpyinfo->n_fonts; i++)
    if (dpyinfo->font_table[i].name)
      {
        DeleteObject (((XFontStruct*)(dpyinfo->font_table[i].font))->hfont);
      }
#endif

  x_delete_display (dpyinfo);
  UNBLOCK_INPUT;
}

    }
    dpyinfo->color_list = NULL;
    if (dpyinfo->palette)
      DeleteObject(dpyinfo->palette);
  }
#if OLD_FONT
  xfree (dpyinfo->font_table);
#endif
  xfree (dpyinfo->w32_id_name);

  w32_reset_fringes ();
}