comparison src/w32term.c @ 34869:1d671133e618

(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars instead of x-toolkit-scroll-bars-p. (Vx_toolkit_scroll_bars): Renamed from x_toolkit_scroll_bars_p.

34868:f3c217d2fc2e

static HBITMAP ov_bmp;

extern Lisp_Object Qhelp_echo;


/* Non-zero means Emacs uses toolkit scroll bars.  */

int x_toolkit_scroll_bars_p;

/* If a string, w32_read_socket generates an event to display that string.
   (The display is done in read_char.)  */
   
static Lisp_Object help_echo;

    "*Non-nil means draw block cursor as wide as the glyph under it.\n\
For example, if a block cursor is over a tab, it will be drawn as\n\
wide as that tab on the display.");
  x_stretch_cursor_p = 0;

  DEFVAR_BOOL ("x-toolkit-scroll-bars-p", &x_toolkit_scroll_bars_p,
    "If not nil, Emacs uses toolkit scroll bars.");
  x_toolkit_scroll_bars_p = 1;

  staticpro (&last_mouse_motion_frame);
  last_mouse_motion_frame = Qnil;
}

34869:1d671133e618

static HBITMAP ov_bmp;

extern Lisp_Object Qhelp_echo;


/* Non-nil means Emacs uses toolkit scroll bars.  */

Lisp_Object Vx_toolkit_scroll_bars;

/* If a string, w32_read_socket generates an event to display that string.
   (The display is done in read_char.)  */
   
static Lisp_Object help_echo;

    "*Non-nil means draw block cursor as wide as the glyph under it.\n\
For example, if a block cursor is over a tab, it will be drawn as\n\
wide as that tab on the display.");
  x_stretch_cursor_p = 0;

  DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
    "If not nil, Emacs uses toolkit scroll bars.");
  Vx_toolkit_scroll_bars = Qt;

  staticpro (&last_mouse_motion_frame);
  last_mouse_motion_frame = Qnil;
}