comparison src/xdisp.c @ 83116:6ae3d2810507

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-262 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-263 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-264 Update from CVS: lispref/display.texi: emacs -> Emacs. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-265 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-266 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-267 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-156

83115:141388e31bb7

  if (base_face_id == DEFAULT_FACE_ID
      && FRAME_WINDOW_P (it->f))
    {
      if (NATNUMP (current_buffer->extra_line_spacing))
	it->extra_line_spacing = XFASTINT (current_buffer->extra_line_spacing);
      else if (it->f->extra_line_spacing > 0)
	it->extra_line_spacing = it->f->extra_line_spacing;
    }

  /* If realized faces have been removed, e.g. because of face

  /* Current value of the `slice', `space-width', and 'height' properties.  */
  it->slice.x = it->slice.y = it->slice.width = it->slice.height = Qnil;
  it->space_width = Qnil;
  it->font_height = Qnil;

  /* Are control characters displayed as `^C'?  */
  it->ctl_arrow_p = !NILP (current_buffer->ctl_arrow);

  /* -1 means everything between a CR and the following line end

	  face = FACE_FROM_ID (it->f, it->face_id);
	  it->face_id = FACE_FOR_CHAR (it->f, face, 0);

	  PRODUCE_GLYPHS (it);

	  it->use_default_face = 0;
	  it->constrain_row_ascent_descent_p = 0;
	  it->current_x = saved_x;
	  it->object = saved_object;
	  it->position = saved_pos;
	  it->what = saved_what;

    }

  take_vertical_position_into_account (it);
}

/* RIF:
   Produce glyphs/get display metrics for the display element IT is
   loaded with.  See the description of struct display_iterator in
   dispextern.h for an overview of struct display_iterator.  */

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

	  it->nglyphs = 1;

 	  if (it->use_default_face)
 	    {
 	      font = FRAME_FONT (it->f);
 	      boff = FRAME_BASELINE_OFFSET (it->f);
 	    }
 
	  pcm = FRAME_RIF (it->f)->per_char_metric
            (font, &char2b, FONT_TYPE_FOR_UNIBYTE (font, it->char_to_display));

	  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;

	{
	  /* A newline has no width but we need the height of the line.
	     But if previous part of the line set a height, don't
	     increase that height */

	  Lisp_Object lsp, lh;

	  it->pixel_width = 0;
	  it->nglyphs = 0;

	  lh = Fget_text_property (make_number (IT_CHARPOS (*it)),
				   Qline_height, it->object);

	  if (EQ (lh, Qt))
	    {
	      it->use_default_face = 1;
	      font = FRAME_FONT (it->f);
	      boff = FRAME_BASELINE_OFFSET (it->f);
	      font_info = NULL;
	    }

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

	  if (EQ (lh, make_number (0)))
	    {
	      if (it->descent > it->max_descent)
		{
		  it->ascent += it->descent - it->max_descent;
		  it->descent = it->max_descent;

	      it->constrain_row_ascent_descent_p = 1;
	      extra_line_spacing = 0;
	    }
	  else
	    {
	      int explicit_height = -1;
	      it->phys_ascent = it->ascent;
	      it->phys_descent = it->descent;

	      if ((it->max_ascent > 0 || it->max_descent > 0)
		  && face->box != FACE_NO_BOX
		  && face->box_line_width > 0)
		{
		  it->ascent += face->box_line_width;
		  it->descent += face->box_line_width;
		}
	      if (INTEGERP (lh))
		explicit_height = XINT (lh);
	      else if (FLOATP (lh))
		explicit_height = (it->phys_ascent + it->phys_descent)
		  * XFLOAT_DATA (lh);

	      if (explicit_height > it->ascent + it->descent)
		it->ascent = explicit_height - it->descent;
	    }

	  lsp = Fget_text_property (make_number (IT_CHARPOS (*it)),
				    Qline_spacing, it->object);
	  if (INTEGERP (lsp))
	    extra_line_spacing = XINT (lsp);
	  else if (FLOATP (lsp))
	    extra_line_spacing = (it->phys_ascent + it->phys_descent)
	      * XFLOAT_DATA (lsp);
	}
      else if (it->char_to_display == '\t')
	{
	  int tab_width = it->tab_width * FRAME_COLUMN_WIDTH (it->f);
	  int x = it->current_x + it->continuation_lines_width;

     because this isn't true for images with `:ascent 100'.  */
  xassert (it->ascent >= 0 && it->descent >= 0);
  if (it->area == TEXT_AREA)
    it->current_x += it->pixel_width;

  it->descent += extra_line_spacing;

  it->max_ascent = max (it->max_ascent, it->ascent);
  it->max_descent = max (it->max_descent, it->descent);
  it->max_phys_ascent = max (it->max_phys_ascent, it->phys_ascent);
  it->max_phys_descent = max (it->max_phys_descent, it->phys_descent);

      position = make_number (pos);

      if (BUFFERP (object))
	{
	  /* Put all the overlays we want in a vector in overlay_vec.
	     Store the length in len.  If there are more than 10, make
	     enough space for all, and try again.  */
	  len = 10;
	  overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
	  noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL, 0);
	  if (noverlays > len)
	    {
	      len = noverlays;

83116:6ae3d2810507

  if (base_face_id == DEFAULT_FACE_ID
      && FRAME_WINDOW_P (it->f))
    {
      if (NATNUMP (current_buffer->extra_line_spacing))
	it->extra_line_spacing = XFASTINT (current_buffer->extra_line_spacing);
      else if (FLOATP (current_buffer->extra_line_spacing))
	it->extra_line_spacing = (XFLOAT_DATA (current_buffer->extra_line_spacing)
				  * FRAME_LINE_HEIGHT (it->f));
      else if (it->f->extra_line_spacing > 0)
	it->extra_line_spacing = it->f->extra_line_spacing;
    }

  /* If realized faces have been removed, e.g. because of face

  /* Current value of the `slice', `space-width', and 'height' properties.  */
  it->slice.x = it->slice.y = it->slice.width = it->slice.height = Qnil;
  it->space_width = Qnil;
  it->font_height = Qnil;
  it->override_ascent = -1;

  /* Are control characters displayed as `^C'?  */
  it->ctl_arrow_p = !NILP (current_buffer->ctl_arrow);

  /* -1 means everything between a CR and the following line end

	  face = FACE_FROM_ID (it->f, it->face_id);
	  it->face_id = FACE_FOR_CHAR (it->f, face, 0);

	  PRODUCE_GLYPHS (it);

	  it->override_ascent = -1;
	  it->constrain_row_ascent_descent_p = 0;
	  it->current_x = saved_x;
	  it->object = saved_object;
	  it->position = saved_pos;
	  it->what = saved_what;

    }

  take_vertical_position_into_account (it);
}

/* Calculate line-height and line-spacing properties.
   An integer value specifies explicit pixel value.
   A float value specifies relative value to current face height.
   A cons (float . face-name) specifies relative value to
   height of specified face font.

   Returns height in pixels, or nil.  */

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

  val = Fget_char_property (make_number (IT_CHARPOS (*it)),
			    prop, it->object);

  if (NILP (val))
    return val;

  if (INTEGERP (val))
    return val;

  if (CONSP (val))
    {
      face_name = XCDR (val);
      val = XCAR (val);
    }
  else if (SYMBOLP (val))
    {
      face_name = val;
      val = Qnil;
    }

  override = EQ (prop, Qline_height);

  if (NILP (face_name))
    {
      font = FRAME_FONT (it->f);
      boff = FRAME_BASELINE_OFFSET (it->f);
    }
  else if (EQ (face_name, Qt))
    {
      override = 0;
    }
  else
    {
      int face_id;
      struct face *face;
      struct font_info *font_info;

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

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

      font_info = FONT_INFO_FROM_ID (it->f, face->font_info_id);
      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;

  if (override)
    {
      it->override_ascent = ascent;
      it->override_descent = descent;
      it->override_boff = boff;
    }

  height = ascent + descent;
  if (FLOATP (val))
    height = (int)(XFLOAT_DATA (val) * height);
  else if (INTEGERP (val))
    height *= XINT (val);

  return make_number (height);
}


/* RIF:
   Produce glyphs/get display metrics for the display element IT is
   loaded with.  See the description of struct display_iterator in
   dispextern.h for an overview of struct display_iterator.  */

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

	  it->nglyphs = 1;

          pcm = FRAME_RIF (it->f)->per_char_metric
            (font, &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;
 	      boff = it->override_boff;
 	    }
 	  else
 	    {
 	      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;

	{
	  /* A newline has no width but we need the height of the line.
	     But if previous part of the line set a height, don't
	     increase that height */

	  Lisp_Object height, spacing;

	  it->override_ascent = -1;
	  it->pixel_width = 0;
	  it->nglyphs = 0;

	  height = calc_line_height_property(it, Qline_height, font, boff);

	  if (it->override_ascent >= 0)
	    {
	      it->ascent = it->override_ascent;
	      it->descent = it->override_descent;
	      boff = it->override_boff;
	    }
	  else
	    {
	      it->ascent = FONT_BASE (font) + boff;
	      it->descent = FONT_DESCENT (font) - boff;
	    }

	  if (EQ (height, make_number(0)))
	    {
	      if (it->descent > it->max_descent)
		{
		  it->ascent += it->descent - it->max_descent;
		  it->descent = it->max_descent;

	      it->constrain_row_ascent_descent_p = 1;
	      extra_line_spacing = 0;
	    }
	  else
	    {
	      it->phys_ascent = it->ascent;
	      it->phys_descent = it->descent;

	      if ((it->max_ascent > 0 || it->max_descent > 0)
		  && face->box != FACE_NO_BOX
		  && face->box_line_width > 0)
		{
		  it->ascent += face->box_line_width;
		  it->descent += face->box_line_width;
		}
	      if (!NILP (height)
		  && XINT (height) > it->ascent + it->descent)
		it->ascent = XINT (height) - it->descent;
	    }

	  spacing = calc_line_height_property(it, Qline_spacing, font, boff);
	  if (!NILP (spacing))
	    {
	      int sp = XINT (spacing);
	      if (sp < 0)
		extra_line_spacing = (-sp) - (it->phys_ascent + it->phys_descent);
	      else
		extra_line_spacing = sp;
	    }
	}
      else if (it->char_to_display == '\t')
	{
	  int tab_width = it->tab_width * FRAME_COLUMN_WIDTH (it->f);
	  int x = it->current_x + it->continuation_lines_width;

     because this isn't true for images with `:ascent 100'.  */
  xassert (it->ascent >= 0 && it->descent >= 0);
  if (it->area == TEXT_AREA)
    it->current_x += it->pixel_width;

  if (extra_line_spacing > 0)
    it->descent += extra_line_spacing;

  it->max_ascent = max (it->max_ascent, it->ascent);
  it->max_descent = max (it->max_descent, it->descent);
  it->max_phys_ascent = max (it->max_phys_ascent, it->phys_ascent);
  it->max_phys_descent = max (it->max_phys_descent, it->phys_descent);

      position = make_number (pos);

      if (BUFFERP (object))
	{
	  /* Put all the overlays we want in a vector in overlay_vec.
	     Store the length in len.  If there are more than 40, make
	     enough space for all, and try again.  */
	  len = 40;
	  overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
	  noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL, 0);
	  if (noverlays > len)
	    {
	      len = noverlays;