comparison src/msdos.c @ 89909:68c22ea6027c

Sync to HEAD

89908:ee1402f7b568

#include "window.h"
#include "buffer.h"
#include "commands.h"
#include "blockinput.h"
#include "keyboard.h"
#include <go32.h>
#include <pc.h>
#include <ctype.h>
/* #include <process.h> */
/* Damn that local process.h!  Instead we can define P_WAIT ourselves.  */

static unsigned short screen_virtual_segment = 0;
static unsigned short screen_virtual_offset = 0;
/* A flag to control how to display unibyte 8-bit characters.  */
extern int unibyte_display_via_language_environment;

Lisp_Object Qbar, Qhbar;

/* The screen colors of the current frame, which serve as the default
   colors for newly-created frames.  */
static int initial_screen_colors[2];

/* Clear out the mouse-highlighted active region.
   Redraw it un-highlighted first.  */
static void
clear_mouse_face (struct display_info *dpyinfo)
{
  if (! NILP (dpyinfo->mouse_face_window))
    show_mouse_face (dpyinfo, 0);

  dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
  dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
  dpyinfo->mouse_face_window = Qnil;

      Lisp_Object help, map;

      /* Find the glyph under X.  */
      glyph = (row->glyphs[TEXT_AREA]
	       + x
	       /* Does MS-DOG really support scroll-bars??  ++KFS */
	       - WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH (w));
      end = glyph + row->used[TEXT_AREA];
      if (glyph < end
	  && STRINGP (glyph->object)
	  && STRING_INTERVALS (glyph->object)

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

Lisp_Object Qcursor_type;

static void
IT_frame_up_to_date (struct frame *f)
{
  struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);

{
  struct input_event event;
  union REGS regs;
  struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME());
  EVENT_INIT (event);
  
#ifndef HAVE_X_WINDOWS
  /* Maybe put the cursor where it should be.  */
  IT_cmgoto (SELECTED_FRAME());
#endif

      if (code == 0)
	continue;

      if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
	{
	  dpyinfo->mouse_face_hidden = 1;
	  clear_mouse_face (dpyinfo);
	}

      if (code >= 0x100)
	event.kind = NON_ASCII_KEYSTROKE_EVENT;
      else

  staticpro (&recent_doskeys);

#ifndef HAVE_X_WINDOWS

  /* The following two are from xfns.c:  */
  Qbar = intern ("bar");
  staticpro (&Qbar);
  Qhbar = intern ("hbar");
  staticpro (&Qhbar);
  Qcursor_type = intern ("cursor-type");
  staticpro (&Qcursor_type);
  Qreverse = intern ("reverse");
  staticpro (&Qreverse);

  DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph,
	       doc: /* *Glyph to display instead of chars not supported by current codepage.

This variable is used only by MSDOS terminals.  */);
  Vdos_unsupported_char_glyph = '\177';

#endif
#ifndef subprocesses

  defsubr (&Smsdos_remember_default_colors);
  defsubr (&Smsdos_set_mouse_buttons);
}

#endif /* MSDOS */

89909:68c22ea6027c

#include "window.h"
#include "buffer.h"
#include "commands.h"
#include "blockinput.h"
#include "keyboard.h"
#include "intervals.h"
#include <go32.h>
#include <pc.h>
#include <ctype.h>
/* #include <process.h> */
/* Damn that local process.h!  Instead we can define P_WAIT ourselves.  */

static unsigned short screen_virtual_segment = 0;
static unsigned short screen_virtual_offset = 0;
/* A flag to control how to display unibyte 8-bit characters.  */
extern int unibyte_display_via_language_environment;

extern Lisp_Object Qcursor_type;
extern Lisp_Object Qbar, Qhbar;

/* The screen colors of the current frame, which serve as the default
   colors for newly-created frames.  */
static int initial_screen_colors[2];

/* Clear out the mouse-highlighted active region.
   Redraw it un-highlighted first.  */
static void
clear_mouse_face (struct display_info *dpyinfo)
{
  if (!dpyinfo->mouse_face_hidden && ! NILP (dpyinfo->mouse_face_window))
    show_mouse_face (dpyinfo, 0);

  dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
  dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
  dpyinfo->mouse_face_window = Qnil;

      Lisp_Object help, map;

      /* Find the glyph under X.  */
      glyph = (row->glyphs[TEXT_AREA]
	       + x
	       /* in case someone implements scroll bars some day... */
	       - WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH (w));
      end = glyph + row->used[TEXT_AREA];
      if (glyph < end
	  && STRINGP (glyph->object)
	  && STRING_INTERVALS (glyph->object)

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

static void
IT_frame_up_to_date (struct frame *f)
{
  struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);

{
  struct input_event event;
  union REGS regs;
  struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME());
  EVENT_INIT (event);

#ifndef HAVE_X_WINDOWS
  /* Maybe put the cursor where it should be.  */
  IT_cmgoto (SELECTED_FRAME());
#endif

      if (code == 0)
	continue;

      if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
	{
	  clear_mouse_face (dpyinfo);
	  dpyinfo->mouse_face_hidden = 1;
	}

      if (code >= 0x100)
	event.kind = NON_ASCII_KEYSTROKE_EVENT;
      else

  staticpro (&recent_doskeys);

#ifndef HAVE_X_WINDOWS

  /* The following two are from xfns.c:  */
  Qreverse = intern ("reverse");
  staticpro (&Qreverse);

  DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph,
	       doc: /* *Glyph to display instead of chars not supported by current codepage.
This variable is used only by MSDOS terminals.  */);
  Vdos_unsupported_char_glyph = '\177';

#endif
#ifndef subprocesses

  defsubr (&Smsdos_remember_default_colors);
  defsubr (&Smsdos_set_mouse_buttons);
}

#endif /* MSDOS */

/* arch-tag: db404e92-52a5-475f-9eb2-1cb78dd05f30
   (do not change this comment) */