comparison src/term.c @ 83311:c016d82bf02b

Merged from [e-mail]--gnu-2005 (patch 423-434) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-423 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-424 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-425 Remove "-face" suffix from gnus faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-426 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-427 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-428 Remove "-face" suffix from MH-E faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-429 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-430 Remove "-face" suffix from cc-mode faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-431 Remove "-face" suffix from eshell faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-432 Remove "-face" suffix from ediff faces * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-433 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-434 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-351

83310:e58cb448e07c

produce_special_glyphs (it, what)
     struct it *it;
     enum display_element_type what;
{
  struct it temp_it;

  temp_it = *it;
  temp_it.dp = NULL;
  temp_it.what = IT_CHARACTER;
  temp_it.len = 1;

      /* Continuation glyph.  */
      if (it->dp
	  && INTEGERP (DISP_CONTINUE_GLYPH (it->dp))
	  && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it->dp))))
	{
	  temp_it.c = FAST_GLYPH_CHAR (XINT (DISP_CONTINUE_GLYPH (it->dp)));
	  temp_it.len = CHAR_BYTES (temp_it.c);
	}
      else
	temp_it.c = '\\';

      produce_glyphs (&temp_it);
      it->pixel_width = temp_it.pixel_width;
      it->nglyphs = temp_it.pixel_width;
    }
  else if (what == IT_TRUNCATION)
    {
      /* Truncation glyph.  */
      if (it->dp
	  && INTEGERP (DISP_TRUNC_GLYPH (it->dp))
	  && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it->dp))))
	{
	  temp_it.c = FAST_GLYPH_CHAR (XINT (DISP_TRUNC_GLYPH (it->dp)));
	  temp_it.len = CHAR_BYTES (temp_it.c);
	}
      else
	temp_it.c = '$';

      produce_glyphs (&temp_it);
      it->pixel_width = temp_it.pixel_width;
      it->nglyphs = temp_it.pixel_width;
    }
  else
    abort ();
}



/***********************************************************************

#define MAY_USE_WITH_COLORS_P(tty, ATTR)                \
  (tty->TN_max_colors > 0				\
   ? (tty->TN_no_color_video & (ATTR)) == 0             \
   : 1)

/* Turn appearances of face FACE_ID on tty frame F on.  */

static void
turn_on_face (f, face_id)
     struct frame *f;
     int face_id;

DEFUN ("display-name", Fdisplay_name, Sdisplay_name, 0, 1, 0,
       doc: /* Return the name of the device that DISPLAY uses.
It is not guaranteed that the returned value is unique among opened displays.

DISPLAY can be a display, a frame, or nil (meaning the selected
frame's display). */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  else
    return Qnil;
}

DEFUN ("display-tty-type", Fdisplay_tty_type, Sdisplay_tty_type, 0, 1, 0,
       doc: /* Return the type of the TTY device that DISPLAY uses. */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  else
    return Qnil;
}

DEFUN ("display-controlling-tty-p", Fdisplay_controlling_tty_p, Sdisplay_controlling_tty_p, 0, 1, 0,
       doc: /* Return non-nil if DISPLAY is on the controlling tty of the Emacs process. */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  if (d->type != output_termcap || d->display_info.tty->name)
    return Qnil;
  else
    return Qt;
}

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

See `resume-tty'.  */);
  Vresume_tty_functions = Qnil;

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
  defsubr (&Sdisplay_name);
  defsubr (&Sdisplay_tty_type);
  defsubr (&Sdisplay_controlling_tty_p);
  defsubr (&Sdelete_display);
  defsubr (&Sdisplay_live_p);

83311:c016d82bf02b

produce_special_glyphs (it, what)
     struct it *it;
     enum display_element_type what;
{
  struct it temp_it;
  GLYPH glyph;

  temp_it = *it;
  temp_it.dp = NULL;
  temp_it.what = IT_CHARACTER;
  temp_it.len = 1;

      /* Continuation glyph.  */
      if (it->dp
	  && INTEGERP (DISP_CONTINUE_GLYPH (it->dp))
	  && GLYPH_CHAR_VALID_P (XINT (DISP_CONTINUE_GLYPH (it->dp))))
	{
	  glyph = XINT (DISP_CONTINUE_GLYPH (it->dp));
	  glyph = spec_glyph_lookup_face (XWINDOW (it->window), glyph);
	}
      else
	glyph = '\\';
    }
  else if (what == IT_TRUNCATION)
    {
      /* Truncation glyph.  */
      if (it->dp
	  && INTEGERP (DISP_TRUNC_GLYPH (it->dp))
	  && GLYPH_CHAR_VALID_P (XINT (DISP_TRUNC_GLYPH (it->dp))))
	{
	  glyph = XINT (DISP_TRUNC_GLYPH (it->dp));
	  glyph = spec_glyph_lookup_face (XWINDOW (it->window), glyph);
	}
      else
	glyph = '$';
    }
  else
    abort ();

  temp_it.c = FAST_GLYPH_CHAR (glyph);
  temp_it.face_id = FAST_GLYPH_FACE (glyph);
  temp_it.len = CHAR_BYTES (temp_it.c);

  produce_glyphs (&temp_it);
  it->pixel_width = temp_it.pixel_width;
  it->nglyphs = temp_it.pixel_width;
}



/***********************************************************************

#define MAY_USE_WITH_COLORS_P(tty, ATTR)                \
  (tty->TN_max_colors > 0				\
   ? (tty->TN_no_color_video & (ATTR)) == 0             \
   : 1)

/* Turn appearances of face FACE_ID on tty frame F on.
   FACE_ID is a realized face ID number, in the face cache.  */

static void
turn_on_face (f, face_id)
     struct frame *f;
     int face_id;

DEFUN ("display-name", Fdisplay_name, Sdisplay_name, 0, 1, 0,
       doc: /* Return the name of the device that DISPLAY uses.
It is not guaranteed that the returned value is unique among opened displays.

DISPLAY may be a display, a frame, or nil (meaning the selected
frame's display). */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  else
    return Qnil;
}

DEFUN ("display-tty-type", Fdisplay_tty_type, Sdisplay_tty_type, 0, 1, 0,
       doc: /* Return the type of the TTY device that DISPLAY uses.

DISPLAY may be a display, a frame, or nil (meaning the selected
frame's display).  */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  else
    return Qnil;
}

DEFUN ("display-controlling-tty-p", Fdisplay_controlling_tty_p, Sdisplay_controlling_tty_p, 0, 1, 0,
       doc: /* Return non-nil if DISPLAY is on the controlling tty of the Emacs process.

DISPLAY may be a display, a frame, or nil (meaning the selected
frame's display).  */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  if (d->type != output_termcap || d->display_info.tty->name)
    return Qnil;
  else
    return Qt;
}

DEFUN ("tty-no-underline", Ftty_no_underline, Stty_no_underline, 0, 1, 0,
       doc: /* Declare that the tty used by DISPLAY does not handle underlining.
This is used to override the terminfo data, for certain terminals that
do not really do underlining, but say that they do.  This function has
no effect if used on a non-tty display.

DISPLAY may be a display, a frame, or nil (meaning the selected
frame's display).  */)
  (display)
     Lisp_Object display;
{
  struct display *d = get_display (display, 1);

  if (d->type == output_termcap)
    d->display_info.tty->TS_enter_underline_mode = 0;
  return Qnil;
}


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

See `resume-tty'.  */);
  Vresume_tty_functions = Qnil;

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
  defsubr (&Stty_no_underline);
  defsubr (&Sdisplay_name);
  defsubr (&Sdisplay_tty_type);
  defsubr (&Sdisplay_controlling_tty_p);
  defsubr (&Sdelete_display);
  defsubr (&Sdisplay_live_p);