comparison src/xdisp.c @ 110133:0dcf6ddbe02b

merge changes in emacs-23 branch

110090:9f2296908370

	{
	  Lisp_Object dv;
	  struct charset *unibyte = CHARSET_FROM_ID (charset_unibyte);
	  enum { char_is_other = 0, char_is_nbsp, char_is_soft_hyphen }
	  nbsp_or_shy = char_is_other;
	  int decoded = it->c;

	  if (it->dp
	      && (dv = DISP_CHAR_VECTOR (it->dp, it->c),
		  VECTORP (dv)))
	    {
	      struct Lisp_Vector *v = XVECTOR (dv);

	      /* Return the first character from the display table

		  set_iterator_to_next (it, 0);
		}
	      goto get_next;
	    }

	  if (unibyte_display_via_language_environment
	      && !ASCII_CHAR_P (it->c))
	    decoded = DECODE_CHAR (unibyte, it->c);

	  if (it->c >= 0x80 && ! NILP (Vnobreak_char_display))
	    {
	      if (it->multibyte_p)
		nbsp_or_shy = (it->c == 0xA0   ? char_is_nbsp
			       : it->c == 0xAD ? char_is_soft_hyphen
			       :                 char_is_other);
	      else if (unibyte_display_via_language_environment)
		nbsp_or_shy = (decoded == 0xA0   ? char_is_nbsp
			       : decoded == 0xAD ? char_is_soft_hyphen
			       :                   char_is_other);
	    }

	  /* Translate control characters into `\003' or `^C' form.
	     Control characters coming from a display table entry are
	     currently not translated because we use IT->dpvec to hold
	     the translation.  This could easily be changed but I
	     don't believe that it is worth doing.

	     If it->multibyte_p is nonzero, non-printable non-ASCII
	     characters are also translated to octal form.

	     If it->multibyte_p is zero, eight-bit characters that
	     don't have corresponding multibyte char code are also
	     translated to octal form.  */
	  if ((it->c < ' '
	       ? (it->area != TEXT_AREA
		  /* In mode line, treat \n, \t like other crl chars.  */
		  || (it->c != '\t'
		      && it->glyph_row
		      && (it->glyph_row->mode_line_p || it->avoid_cursor_p))
		  || (it->c != '\n' && it->c != '\t'))
	       : (nbsp_or_shy
		  || (it->multibyte_p
		      ? ! CHAR_PRINTABLE_P (it->c)
		      : (! unibyte_display_via_language_environment
			 ? it->c >= 0x80
			 : (decoded >= 0x80 && decoded < 0xA0))))))
	    {
	      /* IT->c is a control character which must be displayed
		 either as '\003' or as `^C' where the '\\' and '^'
		 can be defined in the display table.  Fill
		 IT->ctl_chars with glyphs for what we have to
		 display.  Then, set IT->dpvec to these glyphs.  */
	      Lisp_Object gc;

	      int face_id, lface_id = 0 ;
	      int escape_glyph;

	      /* Handle control characters with ^.  */

	      if (it->c < 128 && it->ctl_arrow_p)
		{
		  int g;

		  g = '^';	     /* default glyph for Control */
		  /* Set IT->ctl_chars[0] to the glyph for `^'.  */

		      last_escape_glyph_face_id = it->face_id;
		      last_escape_glyph_merged_face_id = face_id;
		    }

		  XSETINT (it->ctl_chars[0], g);
		  XSETINT (it->ctl_chars[1], it->c ^ 0100);
		  ctl_len = 2;
		  goto display_control;
		}

	      /* Handle non-break space in the mode where it only gets

		{
		  /* Merge the no-break-space face into the current face.  */
		  face_id = merge_faces (it->f, Qnobreak_space, 0,
					 it->face_id);

		  it->c = ' ';
		  XSETINT (it->ctl_chars[0], ' ');
		  ctl_len = 1;
		  goto display_control;
		}

		 highlighting.  */

	      if (EQ (Vnobreak_char_display, Qt)
		  && nbsp_or_shy == char_is_soft_hyphen)
		{
		  it->c = '-';
		  XSETINT (it->ctl_chars[0], '-');
		  ctl_len = 1;
		  goto display_control;
		}

		 with the escape glyph.  */

	      if (nbsp_or_shy)
		{
		  XSETINT (it->ctl_chars[0], escape_glyph);
		  it->c = (nbsp_or_shy == char_is_nbsp ? ' ' : '-');
		  XSETINT (it->ctl_chars[1], it->c);
		  ctl_len = 2;
		  goto display_control;
		}

	      {
		unsigned char str[MAX_MULTIBYTE_LENGTH];
		int len;
		int i;

		/* Set IT->ctl_chars[0] to the glyph for `\\'.  */
		if (CHAR_BYTE8_P (it->c))
		  {
		    str[0] = CHAR_TO_BYTE8 (it->c);
		    len = 1;
		  }
		else if (it->c < 256)
		  {
		    str[0] = it->c;
		    len = 1;
		  }
		else
		  {
		    /* It's an invalid character, which shouldn't
		       happen actually, but due to bugs it may
		       happen.  Let's print the char as is, there's
		       not much meaningful we can do with it.  */
		    str[0] = it->c;
		    str[1] = it->c >> 8;
		    str[2] = it->c >> 16;
		    str[3] = it->c >> 24;
		    len = 4;
		  }

		for (i = 0; i < len; i++)
		  {
		    int g;
		    XSETINT (it->ctl_chars[i * 4], escape_glyph);
		    /* Insert three more glyphs into IT->ctl_chars for
		       the octal display of the character.  */
		    g = ((str[i] >> 6) & 7) + '0';
		    XSETINT (it->ctl_chars[i * 4 + 1], g);
		    g = ((str[i] >> 3) & 7) + '0';
		    XSETINT (it->ctl_chars[i * 4 + 2], g);
		    g = (str[i] & 7) + '0';
		    XSETINT (it->ctl_chars[i * 4 + 3], g);
		  }
		ctl_len = len * 4;
	      }

	    display_control:
	      /* Set up IT->dpvec and return first character from it.  */
	      it->dpvec_char_len = it->len;

	      it->saved_face_id = it->face_id;
	      it->method = GET_FROM_DISPLAY_VECTOR;
	      it->ellipsis_p = 0;
	      goto get_next;
	    }
	}
    }

#ifdef HAVE_WINDOW_SYSTEM
  /* Adjust face id for a multibyte character.  There are no multibyte

	{
	  int pos = (it->s ? -1
		     : STRINGP (it->string) ? IT_STRING_CHARPOS (*it)
		     : IT_CHARPOS (*it));

	  it->face_id = FACE_FOR_CHAR (it->f, face, it->c, pos, it->string);
	}
    }
#endif

  /* Is this character the last one of a run of characters with

    {
      Lisp_Object face, ilisp;

      /* Get the next character.  */
      if (multibyte_p)
	it.c = string_char_and_length (p, &it.len);
      else
	it.c = *p, it.len = 1;
      p += it.len;

      /* Get its face.  */
      ilisp = make_number (p - arrow_string);
      face = Fget_text_property (ilisp, Qface, overlay_arrow_string);
      it.face_id = compute_char_face (f, it.c, face);

      /* Compute its width, get its glyphs.  */
      n_glyphs_before = it.glyph_row->used[TEXT_AREA];
      SET_TEXT_POS (it.position, -1, -1);
      PRODUCE_GLYPHS (&it);

	     Must save IT->c and IT->len because otherwise
	     ITERATOR_AT_END_P wouldn't work anymore after
	     append_space_for_newline has been called.  */
	  enum display_element_type saved_what = it->what;
	  int saved_c = it->c, saved_len = it->len;
	  int saved_x = it->current_x;
	  int saved_face_id = it->face_id;
	  struct text_pos saved_pos;
	  Lisp_Object saved_object;
	  struct face *face;

	  saved_pos = it->position;

	  it->what = IT_CHARACTER;
	  memset (&it->position, 0, sizeof it->position);
	  it->object = make_number (0);
	  it->c = ' ';
	  it->len = 1;

	  if (default_face_p)
	    it->face_id = DEFAULT_FACE_ID;
	  else if (it->face_before_selective_p)

	  it->position = saved_pos;
	  it->what = saved_what;
	  it->face_id = saved_face_id;
	  it->len = saved_len;
	  it->c = saved_c;
	  return 1;
	}
    }

  return 0;

      saved_pos = it->position;

      it->what = IT_CHARACTER;
      memset (&it->position, 0, sizeof it->position);
      it->object = make_number (0);
      it->c = ' ';
      it->len = 1;
      /* The last row's blank glyphs should get the default face, to
	 avoid painting the rest of the window with the region face,
	 if the region ends at ZV.  */
      if (it->glyph_row->ends_at_zv_p)

  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, 0);

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


/* Fill glyph string S with composition components specified by S->cmp.

      it2 = *it;
      if (it->multibyte_p)
	{
	  int maxlen = ((IT_BYTEPOS (*it) >= GPT ? ZV : GPT)
			- IT_BYTEPOS (*it));
	  it2.c = STRING_CHAR_AND_LENGTH (p, it2.len);
	}
      else
	it2.c = *p, it2.len = 1;

      it2.glyph_row = NULL;
      it2.what = IT_CHARACTER;
      x_produce_glyphs (&it2);
      width = NUMVAL (prop) * it2.pixel_width;

  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.

	 Note: It seems that we don't have to record multibyte_p in
	 struct glyph because the character code itself tells whether
	 or not the character is multibyte.  Thus, in the future, we
	 must consider eliminating the field `multibyte_p' in the
	 struct glyph.  */
      int saved_multibyte_p = it->multibyte_p;

      /* Maybe translate single-byte characters to multibyte, or the
	 other way.  */
      it->char_to_display = it->c;
      if (!ASCII_BYTE_P (it->c)
	  && ! it->multibyte_p)
	{
	  if (SINGLE_BYTE_CHAR_P (it->c)
	      && unibyte_display_via_language_environment)
	    {
	      struct charset *unibyte = CHARSET_FROM_ID (charset_unibyte);

	      /* get_next_display_element assures that this decoding
		 never fails.  */
	      it->char_to_display = DECODE_CHAR (unibyte, it->c);
	      it->multibyte_p = 1;
	      it->face_id = FACE_FOR_CHAR (it->f, face, it->char_to_display,
					   -1, Qnil);
	      face = FACE_FROM_ID (it->f, it->face_id);
	    }
	}

      /* Get font to use.  Encode IT->char_to_display.  */
      get_char_face_and_encoding (it->f, it->char_to_display, it->face_id,
				  &char2b, it->multibyte_p, 0);
      font = face->font;

      font_not_found_p = font == NULL;
      if (font_not_found_p)
	{
	  /* When no suitable font found, display an empty box based
	     on the metrics of the font of the default face (or what
	     remapped).  */

	  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;

 	    {
 	      it->ascent = FONT_BASE (font) + boff;
 	      it->descent = FONT_DESCENT (font) - boff;
 	    }

	  if (pcm)
	    {
	      it->phys_ascent = pcm->ascent + boff;
	      it->phys_descent = pcm->descent - boff;
	      it->pixel_width = pcm->width;

	  else
	    {
	      it->glyph_not_available_p = 1;
	      it->phys_ascent = it->ascent;
	      it->phys_descent = it->descent;
	      it->pixel_width = FONT_WIDTH (font);
	    }

	  if (it->constrain_row_ascent_descent_p)
	    {
	      if (it->descent > it->max_descent)

		  if (!NILP (total_height))
		    extra_line_spacing -= (it->phys_ascent + it->phys_descent);
		}
	    }
	}
      else if (it->char_to_display == '\t')
	{
	  if (font->space_width > 0)
	    {
	      int tab_width = it->tab_width * font->space_width;
	      int x = it->current_x + it->continuation_lines_width;

	    {
	      it->pixel_width = 0;
	      it->nglyphs = 1;
	    }
	}
      else
	{
	  /* A multi-byte character.  Assume that the display width of the
	     character is the width of the character multiplied by the
	     width of the font.  */

	  /* If we found a font, this font should give us the right
	     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);

	      if (char_width == 0)
		/* This is a non spacing character.  But, as we are
		   going to display an empty box, the box must occupy
		   at least one column.  */
		char_width = 1;
	      it->glyph_not_available_p = 1;
	      it->pixel_width = font->space_width * char_width;
	      it->phys_ascent = FONT_BASE (font) + boff;
	      it->phys_descent = FONT_DESCENT (font) - boff;
	    }
	  else
	    {
	      it->pixel_width = pcm->width;
	      it->phys_ascent = pcm->ascent + boff;
	      it->phys_descent = pcm->descent - boff;
	      if (it->glyph_row
		  && (pcm->lbearing < 0
		      || pcm->rbearing > pcm->width))
		it->glyph_row->contains_overlapping_glyphs_p = 1;
	    }
	  it->nglyphs = 1;
          it->ascent = FONT_BASE (font) + boff;
          it->descent = FONT_DESCENT (font) - boff;
	  if (face->box != FACE_NO_BOX)
	    {
	      int thick = face->box_line_width;

	      if (thick > 0)
		{
		  it->ascent += thick;
		  it->descent += thick;
		}
	      else
		thick = - thick;

	      if (it->start_of_box_run_p)
		it->pixel_width += thick;
	      if (it->end_of_box_run_p)
		it->pixel_width += thick;
	    }

	  /* If face has an overline, add the height of the overline
	     (1 pixel) and a 1 pixel margin to the character height.  */
	  if (face->overline_p)
	    it->ascent += overline_margin;

	  take_vertical_position_into_account (it);

	  if (it->ascent < 0)
	    it->ascent = 0;
	  if (it->descent < 0)
	    it->descent = 0;

	  if (it->glyph_row)
	    append_glyph (it);
	  if (it->pixel_width == 0)
	    /* We assure that all visible glyphs have at least 1-pixel
	       width.  */
	    it->pixel_width = 1;
	}
      it->multibyte_p = saved_multibyte_p;
    }
  else if (it->what == IT_COMPOSITION && it->cmp_it.ch < 0)
    {
      /* A static composition.

	      lbearing = pcm->lbearing;
	      rbearing = pcm->rbearing;
	    }
	  else
	    {
	      width = FONT_WIDTH (font);
	      ascent = FONT_BASE (font);
	      descent = FONT_DESCENT (font);
	      lbearing = 0;
	      rbearing = width;
	    }

110133:0dcf6ddbe02b

	{
	  Lisp_Object dv;
	  struct charset *unibyte = CHARSET_FROM_ID (charset_unibyte);
	  enum { char_is_other = 0, char_is_nbsp, char_is_soft_hyphen }
	  nbsp_or_shy = char_is_other;
	  int c = it->c;	/* This is the character to display.  */

	  if (! it->multibyte_p && ! ASCII_CHAR_P (c))
	    {
	      xassert (SINGLE_BYTE_CHAR_P (c));
	      if (unibyte_display_via_language_environment)
		{
		  c = DECODE_CHAR (unibyte, c);
		  if (c < 0)
		    c = BYTE8_TO_CHAR (it->c);
		}
	      else
		c = BYTE8_TO_CHAR (it->c);
	    }

	  if (it->dp
	      && (dv = DISP_CHAR_VECTOR (it->dp, c),
		  VECTORP (dv)))
	    {
	      struct Lisp_Vector *v = XVECTOR (dv);

	      /* Return the first character from the display table

		  set_iterator_to_next (it, 0);
		}
	      goto get_next;
	    }

	  if (! ASCII_CHAR_P (c) && ! NILP (Vnobreak_char_display))
	    nbsp_or_shy = (c == 0xA0   ? char_is_nbsp
			   : c == 0xAD ? char_is_soft_hyphen
			   :             char_is_other);

	  /* Translate control characters into `\003' or `^C' form.
	     Control characters coming from a display table entry are
	     currently not translated because we use IT->dpvec to hold
	     the translation.  This could easily be changed but I
	     don't believe that it is worth doing.

	     NBSP and SOFT-HYPEN are property translated too.

	     Non-printable characters and raw-byte characters are also
	     translated to octal form.  */
	  if (((c < ' ' || c == 127) /* ASCII control chars */
	       ? (it->area != TEXT_AREA
		  /* In mode line, treat \n, \t like other crl chars.  */
		  || (c != '\t'
		      && it->glyph_row
		      && (it->glyph_row->mode_line_p || it->avoid_cursor_p))
		  || (c != '\n' && c != '\t'))
	       : (nbsp_or_shy
		  || CHAR_BYTE8_P (c)
		  || ! CHAR_PRINTABLE_P (c))))
	    {
	      /* C is a control character, NBSP, SOFT-HYPEN, raw-byte,
		 or a non-printable character which must be displayed
		 either as '\003' or as `^C' where the '\\' and '^'
		 can be defined in the display table.  Fill
		 IT->ctl_chars with glyphs for what we have to
		 display.  Then, set IT->dpvec to these glyphs.  */
	      Lisp_Object gc;

	      int face_id, lface_id = 0 ;
	      int escape_glyph;

	      /* Handle control characters with ^.  */

	      if (ASCII_CHAR_P (c) && it->ctl_arrow_p)
		{
		  int g;

		  g = '^';	     /* default glyph for Control */
		  /* Set IT->ctl_chars[0] to the glyph for `^'.  */

		      last_escape_glyph_face_id = it->face_id;
		      last_escape_glyph_merged_face_id = face_id;
		    }

		  XSETINT (it->ctl_chars[0], g);
		  XSETINT (it->ctl_chars[1], c ^ 0100);
		  ctl_len = 2;
		  goto display_control;
		}

	      /* Handle non-break space in the mode where it only gets

		{
		  /* Merge the no-break-space face into the current face.  */
		  face_id = merge_faces (it->f, Qnobreak_space, 0,
					 it->face_id);

		  c = ' ';
		  XSETINT (it->ctl_chars[0], ' ');
		  ctl_len = 1;
		  goto display_control;
		}

		 highlighting.  */

	      if (EQ (Vnobreak_char_display, Qt)
		  && nbsp_or_shy == char_is_soft_hyphen)
		{
		  XSETINT (it->ctl_chars[0], '-');
		  ctl_len = 1;
		  goto display_control;
		}

		 with the escape glyph.  */

	      if (nbsp_or_shy)
		{
		  XSETINT (it->ctl_chars[0], escape_glyph);
		  c = (nbsp_or_shy == char_is_nbsp ? ' ' : '-');
		  XSETINT (it->ctl_chars[1], c);
		  ctl_len = 2;
		  goto display_control;
		}

	      {
		char str[10];
		int len, i;

		if (CHAR_BYTE8_P (c))
		  /* Display \200 instead of \17777600.  */
		  c = CHAR_TO_BYTE8 (c);
		len = sprintf (str, "%03o", c);

		XSETINT (it->ctl_chars[0], escape_glyph);
		for (i = 0; i < len; i++)
		  XSETINT (it->ctl_chars[i + 1], str[i]);
		ctl_len = len + 1;
	      }

	    display_control:
	      /* Set up IT->dpvec and return first character from it.  */
	      it->dpvec_char_len = it->len;

	      it->saved_face_id = it->face_id;
	      it->method = GET_FROM_DISPLAY_VECTOR;
	      it->ellipsis_p = 0;
	      goto get_next;
	    }
	  it->char_to_display = c;
	}
      else if (success_p)
	{
	  it->char_to_display = it->c;
	}
    }

#ifdef HAVE_WINDOW_SYSTEM
  /* Adjust face id for a multibyte character.  There are no multibyte

	{
	  int pos = (it->s ? -1
		     : STRINGP (it->string) ? IT_STRING_CHARPOS (*it)
		     : IT_CHARPOS (*it));

	  it->face_id = FACE_FOR_CHAR (it->f, face, it->char_to_display, pos,
				       it->string);
	}
    }
#endif

  /* Is this character the last one of a run of characters with

    {
      Lisp_Object face, ilisp;

      /* Get the next character.  */
      if (multibyte_p)
	it.c = it.char_to_display = string_char_and_length (p, &it.len);
      else
	{
	  it.c = it.char_to_display = *p, it.len = 1;
	  if (! ASCII_CHAR_P (it.c))
	    it.char_to_display = BYTE8_TO_CHAR (it.c);
	}
      p += it.len;

      /* Get its face.  */
      ilisp = make_number (p - arrow_string);
      face = Fget_text_property (ilisp, Qface, overlay_arrow_string);
      it.face_id = compute_char_face (f, it.char_to_display, face);

      /* Compute its width, get its glyphs.  */
      n_glyphs_before = it.glyph_row->used[TEXT_AREA];
      SET_TEXT_POS (it.position, -1, -1);
      PRODUCE_GLYPHS (&it);

	     Must save IT->c and IT->len because otherwise
	     ITERATOR_AT_END_P wouldn't work anymore after
	     append_space_for_newline has been called.  */
	  enum display_element_type saved_what = it->what;
	  int saved_c = it->c, saved_len = it->len;
	  int saved_char_to_display = it->char_to_display;
	  int saved_x = it->current_x;
	  int saved_face_id = it->face_id;
	  struct text_pos saved_pos;
	  Lisp_Object saved_object;
	  struct face *face;

	  saved_pos = it->position;

	  it->what = IT_CHARACTER;
	  memset (&it->position, 0, sizeof it->position);
	  it->object = make_number (0);
	  it->c = it->char_to_display = ' ';
	  it->len = 1;

	  if (default_face_p)
	    it->face_id = DEFAULT_FACE_ID;
	  else if (it->face_before_selective_p)

	  it->position = saved_pos;
	  it->what = saved_what;
	  it->face_id = saved_face_id;
	  it->len = saved_len;
	  it->c = saved_c;
	  it->char_to_display = saved_char_to_display;
	  return 1;
	}
    }

  return 0;

      saved_pos = it->position;

      it->what = IT_CHARACTER;
      memset (&it->position, 0, sizeof it->position);
      it->object = make_number (0);
      it->c = it->char_to_display = ' ';
      it->len = 1;
      /* The last row's blank glyphs should get the default face, to
	 avoid painting the rest of the window with the region face,
	 if the region ends at ZV.  */
      if (it->glyph_row->ends_at_zv_p)

  if (two_byte_p)
    *two_byte_p = 0;

  if (face->font)
    {
      unsigned code;

      if (CHAR_BYTE8_P (glyph->u.ch))
	code = CHAR_TO_BYTE8 (glyph->u.ch);
      else
	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, 0);

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


/* Get glyph code of character C in FONT in the two-byte form CHAR2B.
   Retunr 1 if FONT has a glyph for C, otherwise return 0.  */

static INLINE int
get_char_glyph_code (int c, struct font *font, XChar2b *char2b)
{
  unsigned code;

  if (CHAR_BYTE8_P (c))
    code = CHAR_TO_BYTE8 (c);
  else
    code = font->driver->encode_char (font, c);

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


/* Fill glyph string S with composition components specified by S->cmp.

      it2 = *it;
      if (it->multibyte_p)
	{
	  int maxlen = ((IT_BYTEPOS (*it) >= GPT ? ZV : GPT)
			- IT_BYTEPOS (*it));
	  it2.c = it2.char_to_display = STRING_CHAR_AND_LENGTH (p, it2.len);
	}
      else
	{
	  it2.c = it2.char_to_display = *p, it2.len = 1;
	  if (! ASCII_CHAR_P (it2.c))
	    it2.char_to_display = BYTE8_TO_CHAR (it2.c);
	}

      it2.glyph_row = NULL;
      it2.what = IT_CHARACTER;
      x_produce_glyphs (&it2);
      width = NUMVAL (prop) * it2.pixel_width;

  it->glyph_not_available_p = 0;

  if (it->what == IT_CHARACTER)
    {
      XChar2b char2b;
      struct face *face = FACE_FROM_ID (it->f, it->face_id);
      struct font *font = face->font;
      int font_not_found_p = font == NULL;
      struct font_metrics *pcm = NULL;
      int boff;			/* baseline offset */

      if (font_not_found_p)
	{
	  /* When no suitable font found, display an empty box based
	     on the metrics of the font of the default face (or what
	     remapped).  */

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

      if (it->char_to_display != '\n' && it->char_to_display != '\t')
	{
	  int stretched_p;

	  it->nglyphs = 1;

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

 	    {
 	      it->ascent = FONT_BASE (font) + boff;
 	      it->descent = FONT_DESCENT (font) - boff;
 	    }

	  if (! font_not_found_p
	      && get_char_glyph_code (it->char_to_display, font, &char2b))
	    {
	      pcm = get_per_char_metric (it->f, font, &char2b);
	      if (pcm->width == 0
		  && pcm->rbearing == 0 && pcm->lbearing == 0)
		pcm = NULL;
	    }

	  if (pcm)
	    {
	      it->phys_ascent = pcm->ascent + boff;
	      it->phys_descent = pcm->descent - boff;
	      it->pixel_width = pcm->width;

	  else
	    {
	      it->glyph_not_available_p = 1;
	      it->phys_ascent = it->ascent;
	      it->phys_descent = it->descent;
	      it->pixel_width = font->space_width;
	    }

	  if (it->constrain_row_ascent_descent_p)
	    {
	      if (it->descent > it->max_descent)

		  if (!NILP (total_height))
		    extra_line_spacing -= (it->phys_ascent + it->phys_descent);
		}
	    }
	}
      else		      /* i.e. (it->char_to_display == '\t') */
	{
	  if (font->space_width > 0)
	    {
	      int tab_width = it->tab_width * font->space_width;
	      int x = it->current_x + it->continuation_lines_width;

	    {
	      it->pixel_width = 0;
	      it->nglyphs = 1;
	    }
	}
    }
  else if (it->what == IT_COMPOSITION && it->cmp_it.ch < 0)
    {
      /* A static composition.

	      lbearing = pcm->lbearing;
	      rbearing = pcm->rbearing;
	    }
	  else
	    {
	      width = font->space_width;
	      ascent = FONT_BASE (font);
	      descent = FONT_DESCENT (font);
	      lbearing = 0;
	      rbearing = width;
	    }