comparison src/msdos.c @ 40082:0eaf29d6544e

(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed. (internal_terminal_init): Don't set reassert_line_highlight_hook or change_line_highlight_hook. (highlight): Variable removed. (IT_set_face, IT_update_begin, IT_update_end, IT_set_terminal_modes): Don't set or use it.

40081:07d7dbf18784

static int internal_terminal = 0;

#ifndef HAVE_X_WINDOWS
extern unsigned char ScreenAttrib;
static int screen_face;
static int highlight;

static int screen_size_X;
static int screen_size_Y;
static int screen_size;

  fg = fp->foreground;
  bg = fp->background;
  dflt_fg = dfp->foreground;
  dflt_bg = dfp->background;

  /* Don't use invalid colors.  In particular, FACE_TTY_DEFAULT_*
     colors mean use the colors of the default face, except that if
     highlight is on, invert the foreground and the background.  Note
     that we assume all 16 colors to be available for the background,
     since Emacs switches on this mode (and loses the blinking
     attribute) at startup.  */
  if (fg == FACE_TTY_DEFAULT_COLOR || fg == FACE_TTY_DEFAULT_FG_COLOR)
    fg = FRAME_FOREGROUND_PIXEL (sf);
  else if (fg == FACE_TTY_DEFAULT_BG_COLOR)
    fg = FRAME_BACKGROUND_PIXEL (sf);
  if (bg == FACE_TTY_DEFAULT_COLOR || bg == FACE_TTY_DEFAULT_BG_COLOR)
    bg = FRAME_BACKGROUND_PIXEL (sf);
  else if (bg == FACE_TTY_DEFAULT_FG_COLOR)
    bg = FRAME_FOREGROUND_PIXEL (sf);

  /* Make sure highlighted lines really stand out, come what may.  */
  if ((highlight || fp->tty_reverse_p)
      && (fg == dflt_fg && bg == dflt_bg))
    {
      unsigned long tem = fg;

      fg = bg;
      bg = tem;

      fg = bg;
      bg = tem2;
    }
  if (termscript)
    fprintf (termscript, "<FACE %d%s: %d/%d[FG:%d/BG:%d]>", face,
	     highlight ? "H" : "", fp->foreground, fp->background, fg, bg);
  if (fg >= 0 && fg < 16)
    {
      ScreenAttrib &= 0xf0;
      ScreenAttrib |= fg;
    }

  if (!mouse_visible)
    mouse_on ();
}

static void
IT_reassert_line_highlight (int new, int vpos)
{
  highlight = new;
}

static void
IT_change_line_highlight (int new_highlight, int y, int vpos, int first_unused_hpos)
{
  highlight = new_highlight;
  IT_cursor_to (vpos, 0);
  IT_clear_end_of_line (first_unused_hpos);
}

static void
IT_update_begin (struct frame *f)
{
  struct display_info *display_info = FRAME_X_DISPLAY_INFO (f);
  struct frame *mouse_face_frame = display_info->mouse_face_mouse_frame;
  
  highlight = 0;

  BLOCK_INPUT;

  if (f && f == mouse_face_frame)
    {

}

static void
IT_update_end (struct frame *f)
{
  highlight = 0;
  FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0;
}

Lisp_Object Qcursor_type;

static void
IT_set_terminal_modes (void)
{
  if (termscript)
    fprintf (termscript, "\n<SET_TERM>");
  highlight = 0;

  screen_size_X = ScreenCols ();
  screen_size_Y = ScreenRows ();
  screen_size = screen_size_X * screen_size_Y;
  

  int cursor_pos_X = ScreenCols () - 1;
  int cursor_pos_Y = ScreenRows () - 1;

  if (termscript)
    fprintf (termscript, "\n<RESET_TERM>");

  highlight = 0;

  if (!term_setup_done)
    return;
  
  mouse_off ();

  write_glyphs_hook = IT_write_glyphs;
  cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
  clear_to_end_hook = IT_clear_to_end;
  clear_end_of_line_hook = IT_clear_end_of_line;
  clear_frame_hook = IT_clear_screen;
  change_line_highlight_hook = IT_change_line_highlight;
  update_begin_hook = IT_update_begin;
  update_end_hook = IT_update_end;
  reassert_line_highlight_hook = IT_reassert_line_highlight;
  frame_up_to_date_hook = IT_frame_up_to_date;

  /* These hooks are called by term.c without being checked.  */
  set_terminal_modes_hook = IT_set_terminal_modes;
  reset_terminal_modes_hook = IT_reset_terminal_modes;

40082:0eaf29d6544e

static int internal_terminal = 0;

#ifndef HAVE_X_WINDOWS
extern unsigned char ScreenAttrib;
static int screen_face;

static int screen_size_X;
static int screen_size_Y;
static int screen_size;

  fg = fp->foreground;
  bg = fp->background;
  dflt_fg = dfp->foreground;
  dflt_bg = dfp->background;

  /* Don't use invalid colors.  In particular, FACE_TTY_DEFAULT_* colors
     mean use the colors of the default face.  Note that we assume all
     16 colors to be available for the background, since Emacs switches
     on this mode (and loses the blinking attribute) at startup.  */
  if (fg == FACE_TTY_DEFAULT_COLOR || fg == FACE_TTY_DEFAULT_FG_COLOR)
    fg = FRAME_FOREGROUND_PIXEL (sf);
  else if (fg == FACE_TTY_DEFAULT_BG_COLOR)
    fg = FRAME_BACKGROUND_PIXEL (sf);
  if (bg == FACE_TTY_DEFAULT_COLOR || bg == FACE_TTY_DEFAULT_BG_COLOR)
    bg = FRAME_BACKGROUND_PIXEL (sf);
  else if (bg == FACE_TTY_DEFAULT_FG_COLOR)
    bg = FRAME_FOREGROUND_PIXEL (sf);

  /* Make sure highlighted lines really stand out, come what may.  */
  if (fp->tty_reverse_p && (fg == dflt_fg && bg == dflt_bg))
    {
      unsigned long tem = fg;

      fg = bg;
      bg = tem;

      fg = bg;
      bg = tem2;
    }
  if (termscript)
    fprintf (termscript, "<FACE %d: %d/%d[FG:%d/BG:%d]>", face,
	     fp->foreground, fp->background, fg, bg);
  if (fg >= 0 && fg < 16)
    {
      ScreenAttrib &= 0xf0;
      ScreenAttrib |= fg;
    }

  if (!mouse_visible)
    mouse_on ();
}

static void
IT_update_begin (struct frame *f)
{
  struct display_info *display_info = FRAME_X_DISPLAY_INFO (f);
  struct frame *mouse_face_frame = display_info->mouse_face_mouse_frame;

  BLOCK_INPUT;

  if (f && f == mouse_face_frame)
    {

}

static void
IT_update_end (struct frame *f)
{
  FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0;
}

Lisp_Object Qcursor_type;

static void
IT_set_terminal_modes (void)
{
  if (termscript)
    fprintf (termscript, "\n<SET_TERM>");

  screen_size_X = ScreenCols ();
  screen_size_Y = ScreenRows ();
  screen_size = screen_size_X * screen_size_Y;
  

  int cursor_pos_X = ScreenCols () - 1;
  int cursor_pos_Y = ScreenRows () - 1;

  if (termscript)
    fprintf (termscript, "\n<RESET_TERM>");

  if (!term_setup_done)
    return;
  
  mouse_off ();

  write_glyphs_hook = IT_write_glyphs;
  cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
  clear_to_end_hook = IT_clear_to_end;
  clear_end_of_line_hook = IT_clear_end_of_line;
  clear_frame_hook = IT_clear_screen;
  update_begin_hook = IT_update_begin;
  update_end_hook = IT_update_end;
  frame_up_to_date_hook = IT_frame_up_to_date;

  /* These hooks are called by term.c without being checked.  */
  set_terminal_modes_hook = IT_set_terminal_modes;
  reset_terminal_modes_hook = IT_reset_terminal_modes;