comparison src/xdisp.c @ 94937:18a1217b0d5e

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. (handle_auto_composed_prop): Do nothing if it->f is not on a window system. Check how many following characters can be displayed by the same font. (calc_pixel_width_or_height): Type of the 4th arg is changed to 'struct font *'. (get_char_face_and_encoding): Assign the whole encoding task to the `encode-char' method of a font driver. (fill_composite_glyph_string): Adjusted for the change of `struct face' and `struct glyph_string'. (fill_glyph_string): Likewise. (get_per_char_metric): Arguments changed. (x_get_glyph_overhangs): Adjusted for the change of `struct face' and `struct glyph_string'. (produce_stretch_glyph, calc_line_height_property) (x_produce_glyphs): Likewise.

94936:abd9e2a3d739

#ifdef MAC_OS
#include "macterm.h"
#endif

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

#ifndef FRAME_X_OUTPUT
#define FRAME_X_OUTPUT(f) ((f)->output_data.x)
#endif

handle_auto_composed_prop (it)
     struct it *it;
{
  enum prop_handled handled = HANDLED_NORMALLY;

  if (FUNCTIONP (Vauto_composition_function))
    {
      Lisp_Object val = Qnil;
      EMACS_INT pos, limit = -1;

      if (STRINGP (it->string))

      if (! NILP (val))
	{
	  Lisp_Object cmp_prop;
	  EMACS_INT cmp_start, cmp_end;

#ifdef USE_FONT_BACKEND
	  if (enable_font_backend
	      && get_property_and_range (pos, Qcomposition, &cmp_prop,
					 &cmp_start, &cmp_end, it->string)
	      && cmp_start == pos
	      && COMPOSITION_METHOD (cmp_prop) == COMPOSITION_WITH_GLYPH_STRING)
	    {
	      Lisp_Object gstring = COMPOSITION_COMPONENTS (cmp_prop);
	      Lisp_Object font_object = LGSTRING_FONT (gstring);

				 it->w, it->string)))
		/* We must re-compute the composition for the
		   different font.  */
		val = Qnil;
	    }
#endif
	  if (! NILP (val))
	    {
	      Lisp_Object end;

	      /* As Fnext_single_char_property_change is very slow, we

	  if (pos < limit)
	    {
	      int count = SPECPDL_INDEX ();
	      Lisp_Object args[5];

	      args[0] = Vauto_composition_function;
	      specbind (Qauto_composition_function, Qnil);
	      args[1] = make_number (pos);
	      args[2] = make_number (limit);
#ifdef USE_FONT_BACKEND
	      if (enable_font_backend)
		args[3] = it->window;
	      else
#endif	/* USE_FONT_BACKEND */
		args[3] = Qnil;
	      args[4] = it->string;
	      safe_call (5, args);
	      unbind_to (count, Qnil);
	    }
	}

	  it->method = GET_FROM_COMPOSITION;
	  it->cmp_id = id;
	  it->cmp_len = COMPOSITION_LENGTH (prop);
	  /* For a terminal, draw only the first (non-TAB) character
	     of the components.  */
#ifdef USE_FONT_BACKEND
	  if (composition_table[id]->method == COMPOSITION_WITH_GLYPH_STRING)
	    {
	      /* FIXME: This doesn't do anything!?! */
	      Lisp_Object lgstring = AREF (XHASH_TABLE (composition_hash_table)
					   ->key_and_value,
					   cmp->hash_index * 2);
	    }
	  else
#endif /* USE_FONT_BACKEND */
	    {
	      int i;

	      for (i = 0; i < cmp->glyph_len; i++)
		if ((it->c = COMPOSITION_GLYPH (composition_table[id], i))

int
calc_pixel_width_or_height (res, it, prop, font, width_p, align_to)
     double *res;
     struct it *it;
     Lisp_Object prop;
     void *font;
     int width_p, *align_to;
{
  double pixels;

#define OK_PIXELS(val) ((*res = (double)(val)), 1)

	    }
	}

#ifdef HAVE_WINDOW_SYSTEM
      if (EQ (prop, Qheight))
	return OK_PIXELS (font ? FONT_HEIGHT ((XFontStruct *)font) : FRAME_LINE_HEIGHT (it->f));
      if (EQ (prop, Qwidth))
	return OK_PIXELS (font ? FONT_WIDTH ((XFontStruct *)font) : FRAME_COLUMN_WIDTH (it->f));
#else
      if (EQ (prop, Qheight) || EQ (prop, Qwidth))
	return OK_PIXELS (1);
#endif

     XChar2b *char2b;
     int multibyte_p, display_p;
{
  struct face *face = FACE_FROM_ID (f, face_id);

#ifdef USE_FONT_BACKEND
  if (enable_font_backend)
    {
      struct font *font = (struct font *) face->font_info;

      if (font)
	{
	  unsigned code = font->driver->encode_char (font, c);

	  if (code != FONT_INVALID_CODE)
	    STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));
	  else
	    STORE_XCHAR2B (char2b, 0, 0);
	}
    }
  else
#endif	/* USE_FONT_BACKEND */
  if (!multibyte_p)
    {
      /* Unibyte case.  We don't have to encode, but we have to make
	 sure to use a face suitable for unibyte.  */
      STORE_XCHAR2B (char2b, 0, c);
      face_id = FACE_FOR_CHAR (f, face, c, -1, Qnil);
      face = FACE_FROM_ID (f, face_id);
    }
  else if (c < 128)
    {
      /* Case of ASCII in a face known to fit ASCII.  */
      STORE_XCHAR2B (char2b, 0, c);
    }
  else if (face->font != NULL)
    {
      struct font_info *font_info
	= FONT_INFO_FROM_ID (f, face->font_info_id);
      struct charset *charset = CHARSET_FROM_ID (font_info->charset);
      unsigned code = ENCODE_CHAR (charset, c);

      if (CHARSET_DIMENSION (charset) == 1)
	STORE_XCHAR2B (char2b, 0, code);
      else
	STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));
       /* Maybe encode the character in *CHAR2B.  */
      FRAME_RIF (f)->encode_char (c, char2b, font_info, charset, NULL);
    }

  /* Make sure X resources of the face are allocated.  */
#ifdef HAVE_X_WINDOWS
  if (display_p)

  face = FACE_FROM_ID (f, glyph->face_id);

  if (two_byte_p)
    *two_byte_p = 0;

#ifdef USE_FONT_BACKEND
  if (enable_font_backend)
    {
      struct font *font = (struct font *) face->font_info;

      if (font)
	{
	  unsigned code = font->driver->encode_char (font, glyph->u.ch);

	  if (code != FONT_INVALID_CODE)
	    STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));
	  else
	    STORE_XCHAR2B (char2b, 0, code);
	}
    }
  else
#endif	/* USE_FONT_BACKEND */
  if (!glyph->multibyte_p)
    {
      /* Unibyte case.  We don't have to encode, but we have to make
	 sure to use a face suitable for unibyte.  */
      STORE_XCHAR2B (char2b, 0, glyph->u.ch);
    }
  else if (glyph->u.ch < 128)
    {
      /* Case of ASCII in a face known to fit ASCII.  */
      STORE_XCHAR2B (char2b, 0, glyph->u.ch);
    }
  else
    {
      struct font_info *font_info
	= FONT_INFO_FROM_ID (f, face->font_info_id);
      if (font_info)
	{
	  struct charset *charset = CHARSET_FROM_ID (font_info->charset);
	  unsigned code = ENCODE_CHAR (charset, glyph->u.ch);

	  if (CHARSET_DIMENSION (charset) == 1)
	    STORE_XCHAR2B (char2b, 0, code);
	  else
	    STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));

	  /* Maybe encode the character in *CHAR2B.  */
	  if (CHARSET_ID (charset) != charset_ascii)
	    {
	      glyph->font_type
		= FRAME_RIF (f)->encode_char (glyph->u.ch, char2b, font_info,
					      charset, two_byte_p);
	    }
	}
    }

  /* Make sure X resources of the face are allocated.  */
  xassert (face != NULL);
  PREPARE_FACE_FOR_DISPLAY (f, face);

  xassert (s);

  s->for_overlaps = overlaps;

#ifdef USE_FONT_BACKEND
  if (enable_font_backend && s->cmp->method == COMPOSITION_WITH_GLYPH_STRING)
    {
      Lisp_Object gstring
	= AREF (XHASH_TABLE (composition_hash_table)->key_and_value,
		s->cmp->hash_index * 2);

      s->face = base_face;
      s->font_info = base_face->font_info;
      s->font = s->font_info->font;
      for (i = 0, s->nchars = 0; i < s->cmp->glyph_len; i++, s->nchars++)
	{
	  Lisp_Object g = LGSTRING_GLYPH (gstring, i);
	  unsigned code;
          XChar2b * store_pos;

	  STORE_XCHAR2B (store_pos, code >> 8, code & 0xFF);
	}
      s->width = s->cmp->pixel_width;
    }
  else
#endif	/* USE_FONT_BACKEND */
    {
      /* For all glyphs of this composition, starting at the offset
	 S->gidx, until we reach the end of the definition or encounter a
	 glyph that requires the different face, add it to S.  */
      struct face *face;

      s->face = NULL;
      s->font = NULL;
      s->font_info = NULL;
      for (i = s->gidx; i < s->cmp->glyph_len; i++)
	{
	  int c = COMPOSITION_GLYPH (s->cmp, i);

	  if (c != '\t')

		{
		  if (! s->face)
		    {
		      s->face = face;
		      s->font = s->face->font;
		      s->font_info = FONT_INFO_FROM_FACE (s->f, s->face);
		    }
		  else if (s->face != face)
		    break;
		}
	    }

      if (glyph++->padding_p != s->padding_p)
	break;
    }

  s->font = s->face->font;
  s->font_info = FONT_INFO_FROM_FACE (s->f, s->face);

  /* If the specified font could not be loaded, use the frame's font,
     but record the fact that we couldn't load it in
     S->font_not_found_p so that we can draw rectangles for the
     characters of the glyph string.  */

  glyph = s->row->glyphs[s->area] + start;
  last = s->row->glyphs[s->area] + end;
  face_id = glyph->face_id;
  s->face = FACE_FROM_ID (s->f, face_id);
  s->font = s->face->font;
  s->font_info = FONT_INFO_FROM_FACE (s->f, s->face);
  s->width = glyph->pixel_width;
  s->nchars = 1;
  voffset = glyph->voffset;

  for (++glyph;

     string by calling PREPARE_FACE_FOR_DISPLAY.  */
  xassert (s->face);
  return glyph - s->row->glyphs[s->area];
}

static XCharStruct *
get_per_char_metric (f, font, font_info, char2b, font_type)
     struct frame *f;
     XFontStruct *font;
     struct font_info *font_info;
     XChar2b *char2b;
     int font_type;
{
#ifdef USE_FONT_BACKEND
  if (enable_font_backend)
    {
      static XCharStruct pcm_value;
      unsigned code = (XCHAR2B_BYTE1 (char2b) << 8) | XCHAR2B_BYTE2 (char2b);
      struct font *fontp;
      struct font_metrics metrics;

      if (! font_info || code == FONT_INVALID_CODE)
	return NULL;
      fontp = (struct font *) font_info;
      fontp->driver->text_extents (fontp, &code, 1, &metrics);
      pcm_value.lbearing = metrics.lbearing;
      pcm_value.rbearing = metrics.rbearing;
      pcm_value.ascent = metrics.ascent;
      pcm_value.descent = metrics.descent;
      pcm_value.width = metrics.width;
      return &pcm_value;
    }
#endif	/* USE_FONT_BACKEND */
  return FRAME_RIF (f)->per_char_metric (font, char2b, font_type);
}

/* EXPORT for RIF:
   Set *LEFT and *RIGHT to the left and right overhang of GLYPH on
   frame F.  Overhangs of glyphs other than type CHAR_GLYPH are

{
  *left = *right = 0;

  if (glyph->type == CHAR_GLYPH)
    {
      XFontStruct *font;
      struct face *face;
      struct font_info *font_info;
      XChar2b char2b;
      XCharStruct *pcm;

      face = get_glyph_face_and_encoding (f, glyph, &char2b, NULL);
      font = face->font;
      font_info = FONT_INFO_FROM_FACE (f, face);
      if (font  /* ++KFS: Should this be font_info ?  */
	  && (pcm = get_per_char_metric (f, font, font_info, &char2b, glyph->font_type)))
	{
	  if (pcm->rbearing > pcm->width)
	    *right = pcm->rbearing - pcm->width;
	  if (pcm->lbearing < 0)
	    *left = -pcm->lbearing;

  int width = 0, height = 0, align_to = -1;
  int zero_width_ok_p = 0, zero_height_ok_p = 0;
  int ascent = 0;
  double tem;
  struct face *face = FACE_FROM_ID (it->f, it->face_id);
  XFontStruct *font = face->font ? face->font : FRAME_FONT (it->f);

  PREPARE_FACE_FOR_DISPLAY (it->f, face);

  /* List should start with `space'.  */
  xassert (CONSP (it->object) && EQ (XCAR (it->object), Qspace));

static Lisp_Object
calc_line_height_property (it, val, font, boff, override)
     struct it *it;
     Lisp_Object val;
     XFontStruct *font;
     int boff, override;
{
  Lisp_Object face_name = Qnil;
  int ascent, descent, height;

    }
  else
    {
      int face_id;
      struct face *face;
      struct font_info *font_info;

      face_id = lookup_named_face (it->f, face_name, 0);
      if (face_id < 0)
	return make_number (-1);

      face = FACE_FROM_ID (it->f, face_id);
      font = face->font;
      if (font == NULL)
	return make_number (-1);

      font_info = FONT_INFO_FROM_FACE (it->f, face);
      boff = font_info->baseline_offset;
      if (font_info->vertical_centering)
	boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
    }

  ascent = FONT_BASE (font) + boff;
  descent = FONT_DESCENT (font) - boff;

  it->glyph_not_available_p = 0;

  if (it->what == IT_CHARACTER)
    {
      XChar2b char2b;
      XFontStruct *font;
      struct face *face = FACE_FROM_ID (it->f, it->face_id);
      XCharStruct *pcm;
      int font_not_found_p;
      struct font_info *font_info;
      int boff;			/* baseline offset */
      /* We may change it->multibyte_p upon unibyte<->multibyte
	 conversion.  So, save the current value now and restore it
	 later.

      font_not_found_p = font == NULL;
      if (font_not_found_p)
	{
	  font = FRAME_FONT (it->f);
	  boff = FRAME_BASELINE_OFFSET (it->f);
	  font_info = NULL;
	}
      else
	{
	  font_info = FONT_INFO_FROM_FACE (it->f, face);
	  boff = font_info->baseline_offset;
	  if (font_info->vertical_centering)
	    boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
	}

      if (it->char_to_display >= ' '
	  && (!it->multibyte_p || it->char_to_display < 128))

	  /* Either unibyte or ASCII.  */
	  int stretched_p;

	  it->nglyphs = 1;

	  pcm = get_per_char_metric (it->f, font, font_info, &char2b,
				     FONT_TYPE_FOR_UNIBYTE (font, it->char_to_display));

 	  if (it->override_ascent >= 0)
 	    {
 	      it->ascent = it->override_ascent;
 	      it->descent = it->override_descent;

	     metrics.  If we didn't find a font, use the frame's
	     default font and calculate the width of the character by
	     multiplying the width of font by the width of the
	     character.  */

	    pcm = get_per_char_metric (it->f, font, font_info, &char2b,
				       FONT_TYPE_FOR_MULTIBYTE (font, it->c));

	  if (font_not_found_p || !pcm)
	    {
	      int char_width = CHAR_WIDTH (it->char_to_display);

	 the overall glyphs composed).  */
      struct face *face = FACE_FROM_ID (it->f, it->face_id);
      int boff;			/* baseline offset */
      struct composition *cmp = composition_table[it->cmp_id];
      int glyph_len = cmp->glyph_len;
      XFontStruct *font = face->font;

      it->nglyphs = 1;

#ifdef USE_FONT_BACKEND
      if (cmp->method == COMPOSITION_WITH_GLYPH_STRING)
	{
	  PREPARE_FACE_FOR_DISPLAY (it->f, face);
	  font_prepare_composition (cmp, it->f);
	}
      else
#endif	/* USE_FONT_BACKEND */
      /* If we have not yet calculated pixel size data of glyphs of
	 the composition for the current face font, calculate them
	 now.  Theoretically, we have to check all fonts for the
	 glyphs, but that requires much time and memory space.  So,
	 here we check only the font of the first glyph.  This leads

	  int i, width, ascent, descent;
	  int left_padded = 0, right_padded = 0;
	  int face_id;
	  int c;
	  XChar2b char2b;
	  XCharStruct *pcm;
	  int font_not_found_p;
	  struct font_info *font_info;
	  int pos;

	  for (glyph_len = cmp->glyph_len; glyph_len > 0; glyph_len--)
	    if ((c = COMPOSITION_GLYPH (cmp, glyph_len - 1)) != '\t')
	      break;

	  if (font_not_found_p)
	    {
	      face = face->ascii_face;
	      font = face->font;
	    }
	  font_info = FONT_INFO_FROM_FACE (it->f, face);
	  boff = font_info->baseline_offset;
	  if (font_info->vertical_centering)
	    boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
	  font_ascent = FONT_BASE (font) + boff;
	  font_descent = FONT_DESCENT (font) - boff;
	  font_height = FONT_HEIGHT (font);

	  pcm = NULL;
	  if (! font_not_found_p)
	    {
	      get_char_face_and_encoding (it->f, c, it->face_id,
					  &char2b, it->multibyte_p, 0);
	      pcm = get_per_char_metric (it->f, font, font_info, &char2b,
					 FONT_TYPE_FOR_MULTIBYTE (font, c));
	    }

	  /* Initialize the bounding box.  */
	  if (pcm)
	    {

	  leftmost = 0;
	  lowest = - descent + boff;
	  highest = ascent + boff;

	  if (! font_not_found_p
	      && font_info->default_ascent
	      && CHAR_TABLE_P (Vuse_default_ascent)
	      && !NILP (Faref (Vuse_default_ascent,
			       make_number (it->char_to_display))))
	    highest = font_info->default_ascent + boff;

	  /* Draw the first glyph at the normal position.  It may be
	     shifted to right later if some other glyphs are drawn
	     at the left.  */
	  cmp->offsets[i * 2] = 0;

	      if (font == NULL)
		pcm = NULL;
	      else
		{
		  font_info = FONT_INFO_FROM_FACE (it->f, this_face);
		  this_boff = font_info->baseline_offset;
		  if (font_info->vertical_centering)
		    this_boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
		  get_char_face_and_encoding (it->f, ch, face_id,
					      &char2b, it->multibyte_p, 0);
		  pcm = get_per_char_metric (it->f, font, font_info, &char2b,
					     FONT_TYPE_FOR_MULTIBYTE (font,
								      ch));
		}
	      if (! pcm)
		cmp->offsets[i * 2] = cmp->offsets[i * 2 + 1] = 0;
	      else
		{

		    {
		      /* Relative composition with or without
			 alternate chars.  */
		      left = (leftmost + rightmost - width) / 2;
		      btm = - descent + boff;
		      if (font_info->relative_compose
			  && (! CHAR_TABLE_P (Vignore_relative_composition)
			      || NILP (Faref (Vignore_relative_composition,
					      make_number (ch)))))
			{

			  if (- descent >= font_info->relative_compose)
			    /* One extra pixel between two glyphs.  */
			    btm = highest + 1;
			  else if (ascent <= 0)
			    /* One extra pixel between two glyphs.  */
			    btm = lowest - 1 - ascent - descent;

94937:18a1217b0d5e

#ifdef MAC_OS
#include "macterm.h"
#endif

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

#ifndef FRAME_X_OUTPUT
#define FRAME_X_OUTPUT(f) ((f)->output_data.x)
#endif

handle_auto_composed_prop (it)
     struct it *it;
{
  enum prop_handled handled = HANDLED_NORMALLY;

  if (FRAME_WINDOW_P (it->f) && FUNCTIONP (Vauto_composition_function))
    {
      Lisp_Object val = Qnil;
      EMACS_INT pos, limit = -1;

      if (STRINGP (it->string))

      if (! NILP (val))
	{
	  Lisp_Object cmp_prop;
	  EMACS_INT cmp_start, cmp_end;

	  if (get_property_and_range (pos, Qcomposition, &cmp_prop,
				      &cmp_start, &cmp_end, it->string)
	      && cmp_start == pos
	      && COMPOSITION_METHOD (cmp_prop) == COMPOSITION_WITH_GLYPH_STRING)
	    {
	      Lisp_Object gstring = COMPOSITION_COMPONENTS (cmp_prop);
	      Lisp_Object font_object = LGSTRING_FONT (gstring);

				 it->w, it->string)))
		/* We must re-compute the composition for the
		   different font.  */
		val = Qnil;
	    }

	  if (! NILP (val))
	    {
	      Lisp_Object end;

	      /* As Fnext_single_char_property_change is very slow, we

	  if (pos < limit)
	    {
	      int count = SPECPDL_INDEX ();
	      Lisp_Object args[5];

	      limit = font_range (pos, limit, FACE_FROM_ID (it->f, it->face_id),
				  it->f, it->string);
	      args[0] = Vauto_composition_function;
	      specbind (Qauto_composition_function, Qnil);
	      args[1] = make_number (pos);
	      args[2] = make_number (limit);
	      args[3] = it->window;
	      args[4] = it->string;
	      safe_call (5, args);
	      unbind_to (count, Qnil);
	    }
	}

	  it->method = GET_FROM_COMPOSITION;
	  it->cmp_id = id;
	  it->cmp_len = COMPOSITION_LENGTH (prop);
	  /* For a terminal, draw only the first (non-TAB) character
	     of the components.  */
	  if (composition_table[id]->method == COMPOSITION_WITH_GLYPH_STRING)
	    {
	      /* FIXME: This doesn't do anything!?! */
	      Lisp_Object lgstring = AREF (XHASH_TABLE (composition_hash_table)
					   ->key_and_value,
					   cmp->hash_index * 2);
	    }
	  else
	    {
	      int i;

	      for (i = 0; i < cmp->glyph_len; i++)
		if ((it->c = COMPOSITION_GLYPH (composition_table[id], i))

int
calc_pixel_width_or_height (res, it, prop, font, width_p, align_to)
     double *res;
     struct it *it;
     Lisp_Object prop;
     struct font *font;
     int width_p, *align_to;
{
  double pixels;

#define OK_PIXELS(val) ((*res = (double)(val)), 1)

	    }
	}

#ifdef HAVE_WINDOW_SYSTEM
      if (EQ (prop, Qheight))
	return OK_PIXELS (font ? FONT_HEIGHT (font) : FRAME_LINE_HEIGHT (it->f));
      if (EQ (prop, Qwidth))
	return OK_PIXELS (font ? FONT_WIDTH (font) : FRAME_COLUMN_WIDTH (it->f));
#else
      if (EQ (prop, Qheight) || EQ (prop, Qwidth))
	return OK_PIXELS (1);
#endif

     XChar2b *char2b;
     int multibyte_p, display_p;
{
  struct face *face = FACE_FROM_ID (f, face_id);

  if (face->font)
    {
      unsigned code = face->font->driver->encode_char (face->font, c);

      if (code != FONT_INVALID_CODE)
	STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));
      else
	STORE_XCHAR2B (char2b, 0, 0);
    }

  /* Make sure X resources of the face are allocated.  */
#ifdef HAVE_X_WINDOWS
  if (display_p)

  face = FACE_FROM_ID (f, glyph->face_id);

  if (two_byte_p)
    *two_byte_p = 0;

  if (face->font)
    {
      unsigned code = face->font->driver->encode_char (face->font, glyph->u.ch);

      if (code != FONT_INVALID_CODE)
	STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));
      else
	STORE_XCHAR2B (char2b, 0, code);
    }

  /* Make sure X resources of the face are allocated.  */
  xassert (face != NULL);
  PREPARE_FACE_FOR_DISPLAY (f, face);

  xassert (s);

  s->for_overlaps = overlaps;

  if (s->cmp->method == COMPOSITION_WITH_GLYPH_STRING)
    {
      Lisp_Object gstring
	= AREF (XHASH_TABLE (composition_hash_table)->key_and_value,
		s->cmp->hash_index * 2);

      s->face = base_face;
      s->font = base_face->font;
      for (i = 0, s->nchars = 0; i < s->cmp->glyph_len; i++, s->nchars++)
	{
	  Lisp_Object g = LGSTRING_GLYPH (gstring, i);
	  unsigned code;
          XChar2b * store_pos;

	  STORE_XCHAR2B (store_pos, code >> 8, code & 0xFF);
	}
      s->width = s->cmp->pixel_width;
    }
  else
    {
      /* For all glyphs of this composition, starting at the offset
	 S->gidx, until we reach the end of the definition or encounter a
	 glyph that requires the different face, add it to S.  */
      struct face *face;

      s->face = NULL;
      s->font = NULL;
      for (i = s->gidx; i < s->cmp->glyph_len; i++)
	{
	  int c = COMPOSITION_GLYPH (s->cmp, i);

	  if (c != '\t')

		{
		  if (! s->face)
		    {
		      s->face = face;
		      s->font = s->face->font;
		    }
		  else if (s->face != face)
		    break;
		}
	    }

      if (glyph++->padding_p != s->padding_p)
	break;
    }

  s->font = s->face->font;

  /* If the specified font could not be loaded, use the frame's font,
     but record the fact that we couldn't load it in
     S->font_not_found_p so that we can draw rectangles for the
     characters of the glyph string.  */

  glyph = s->row->glyphs[s->area] + start;
  last = s->row->glyphs[s->area] + end;
  face_id = glyph->face_id;
  s->face = FACE_FROM_ID (s->f, face_id);
  s->font = s->face->font;
  s->width = glyph->pixel_width;
  s->nchars = 1;
  voffset = glyph->voffset;

  for (++glyph;

     string by calling PREPARE_FACE_FOR_DISPLAY.  */
  xassert (s->face);
  return glyph - s->row->glyphs[s->area];
}

static struct font_metrics *
get_per_char_metric (f, font, char2b)
     struct frame *f;
     struct font *font;
     XChar2b *char2b;
{
  static struct font_metrics metrics;
  unsigned code = (XCHAR2B_BYTE1 (char2b) << 8) | XCHAR2B_BYTE2 (char2b);
  struct font *fontp;

  if (! font || code == FONT_INVALID_CODE)
    return NULL;
  font->driver->text_extents (font, &code, 1, &metrics);
  return &metrics;
}

/* EXPORT for RIF:
   Set *LEFT and *RIGHT to the left and right overhang of GLYPH on
   frame F.  Overhangs of glyphs other than type CHAR_GLYPH are

{
  *left = *right = 0;

  if (glyph->type == CHAR_GLYPH)
    {
      struct face *face;
      XChar2b char2b;
      struct font_metrics *pcm;

      face = get_glyph_face_and_encoding (f, glyph, &char2b, NULL);
      if (face->font && (pcm = get_per_char_metric (f, face->font, &char2b)))
	{
	  if (pcm->rbearing > pcm->width)
	    *right = pcm->rbearing - pcm->width;
	  if (pcm->lbearing < 0)
	    *left = -pcm->lbearing;

  int width = 0, height = 0, align_to = -1;
  int zero_width_ok_p = 0, zero_height_ok_p = 0;
  int ascent = 0;
  double tem;
  struct face *face = FACE_FROM_ID (it->f, it->face_id);
  struct font *font = face->font ? face->font : FRAME_FONT (it->f);

  PREPARE_FACE_FOR_DISPLAY (it->f, face);

  /* List should start with `space'.  */
  xassert (CONSP (it->object) && EQ (XCAR (it->object), Qspace));

static Lisp_Object
calc_line_height_property (it, val, font, boff, override)
     struct it *it;
     Lisp_Object val;
     struct font *font;
     int boff, override;
{
  Lisp_Object face_name = Qnil;
  int ascent, descent, height;

    }
  else
    {
      int face_id;
      struct face *face;

      face_id = lookup_named_face (it->f, face_name, 0);
      if (face_id < 0)
	return make_number (-1);

      face = FACE_FROM_ID (it->f, face_id);
      font = face->font;
      if (font == NULL)
	return make_number (-1);
      boff = font->baseline_offset;
      if (font->vertical_centering)
	boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
    }

  ascent = FONT_BASE (font) + boff;
  descent = FONT_DESCENT (font) - boff;

  it->glyph_not_available_p = 0;

  if (it->what == IT_CHARACTER)
    {
      XChar2b char2b;
      struct font *font;
      struct face *face = FACE_FROM_ID (it->f, it->face_id);
      struct font_metrics *pcm;
      int font_not_found_p;
      int boff;			/* baseline offset */
      /* We may change it->multibyte_p upon unibyte<->multibyte
	 conversion.  So, save the current value now and restore it
	 later.

      font_not_found_p = font == NULL;
      if (font_not_found_p)
	{
	  font = FRAME_FONT (it->f);
	  boff = FRAME_BASELINE_OFFSET (it->f);
	}
      else
	{
	  boff = font->baseline_offset;
	  if (font->vertical_centering)
	    boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
	}

      if (it->char_to_display >= ' '
	  && (!it->multibyte_p || it->char_to_display < 128))

	  /* Either unibyte or ASCII.  */
	  int stretched_p;

	  it->nglyphs = 1;

	  pcm = get_per_char_metric (it->f, font, &char2b);

 	  if (it->override_ascent >= 0)
 	    {
 	      it->ascent = it->override_ascent;
 	      it->descent = it->override_descent;

	     metrics.  If we didn't find a font, use the frame's
	     default font and calculate the width of the character by
	     multiplying the width of font by the width of the
	     character.  */

	  pcm = get_per_char_metric (it->f, font, &char2b);

	  if (font_not_found_p || !pcm)
	    {
	      int char_width = CHAR_WIDTH (it->char_to_display);

	 the overall glyphs composed).  */
      struct face *face = FACE_FROM_ID (it->f, it->face_id);
      int boff;			/* baseline offset */
      struct composition *cmp = composition_table[it->cmp_id];
      int glyph_len = cmp->glyph_len;
      struct font *font = face->font;

      it->nglyphs = 1;

      if (cmp->method == COMPOSITION_WITH_GLYPH_STRING)
	{
	  PREPARE_FACE_FOR_DISPLAY (it->f, face);
	  font_prepare_composition (cmp, it->f);
	}
      else
      /* If we have not yet calculated pixel size data of glyphs of
	 the composition for the current face font, calculate them
	 now.  Theoretically, we have to check all fonts for the
	 glyphs, but that requires much time and memory space.  So,
	 here we check only the font of the first glyph.  This leads

	  int i, width, ascent, descent;
	  int left_padded = 0, right_padded = 0;
	  int face_id;
	  int c;
	  XChar2b char2b;
	  struct font_metrics *pcm;
	  int font_not_found_p;
	  int pos;

	  for (glyph_len = cmp->glyph_len; glyph_len > 0; glyph_len--)
	    if ((c = COMPOSITION_GLYPH (cmp, glyph_len - 1)) != '\t')
	      break;

	  if (font_not_found_p)
	    {
	      face = face->ascii_face;
	      font = face->font;
	    }
	  boff = font->baseline_offset;
	  if (font->vertical_centering)
	    boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
	  font_ascent = FONT_BASE (font) + boff;
	  font_descent = FONT_DESCENT (font) - boff;
	  font_height = FONT_HEIGHT (font);

	  pcm = NULL;
	  if (! font_not_found_p)
	    {
	      get_char_face_and_encoding (it->f, c, it->face_id,
					  &char2b, it->multibyte_p, 0);
	      pcm = get_per_char_metric (it->f, font, &char2b);
	    }

	  /* Initialize the bounding box.  */
	  if (pcm)
	    {

	  leftmost = 0;
	  lowest = - descent + boff;
	  highest = ascent + boff;

	  if (! font_not_found_p
	      && font->default_ascent
	      && CHAR_TABLE_P (Vuse_default_ascent)
	      && !NILP (Faref (Vuse_default_ascent,
			       make_number (it->char_to_display))))
	    highest = font->default_ascent + boff;

	  /* Draw the first glyph at the normal position.  It may be
	     shifted to right later if some other glyphs are drawn
	     at the left.  */
	  cmp->offsets[i * 2] = 0;

	      if (font == NULL)
		pcm = NULL;
	      else
		{
		  this_boff = font->baseline_offset;
		  if (font->vertical_centering)
		    this_boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
		  get_char_face_and_encoding (it->f, ch, face_id,
					      &char2b, it->multibyte_p, 0);
		  pcm = get_per_char_metric (it->f, font, &char2b);
		}
	      if (! pcm)
		cmp->offsets[i * 2] = cmp->offsets[i * 2 + 1] = 0;
	      else
		{

		    {
		      /* Relative composition with or without
			 alternate chars.  */
		      left = (leftmost + rightmost - width) / 2;
		      btm = - descent + boff;
		      if (font->relative_compose
			  && (! CHAR_TABLE_P (Vignore_relative_composition)
			      || NILP (Faref (Vignore_relative_composition,
					      make_number (ch)))))
			{

			  if (- descent >= font->relative_compose)
			    /* One extra pixel between two glyphs.  */
			    btm = highest + 1;
			  else if (ascent <= 0)
			    /* One extra pixel between two glyphs.  */
			    btm = lowest - 1 - ascent - descent;