mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

(x_autoselect_window_p): New variable.

Browse source 
(syms_of_msdos): Defvar it.
(dos_rawgetc): If x_autoselect_window_p is set, select the window
in which the last mouse movement occured, unless it is already
selected.
This commit is contained in:
Eli Zaretskii 2002-02-16 15:44:03 +00:00
parent 63a4cd1689
commit 4a137db112
2 changed files with 35 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -1,5 +1,11 @@
2002-02-16 Eli Zaretskii <eliz@is.elta.co.il>
* msdos.c (x_autoselect_window_p): New variable.
(syms_of_msdos): Defvar it.
(dos_rawgetc): If x_autoselect_window_p is set, select the window
in which the last mouse movement occured, unless it is already
selected.
* xdisp.c (automatic_hscroll_margin, Vautomatic_hscroll_step): New
variables.
(syms_of_xdisp): DEVFAR them.

29
src/msdos.c
View file

@ -1196,6 +1196,10 @@ static Lisp_Object help_echo_window;
static Lisp_Object help_echo_object;
static int help_echo_pos;
/* Non-zero means automatically select any window when the mouse
cursor moves into it. */
int x_autoselect_window_p;
static int mouse_preempted = 0; /* non-zero when XMenu gobbles mouse events */
/* Set the mouse pointer shape according to whether it is in the
@ -3388,6 +3392,27 @@ dos_rawgetc ()
might need to update mouse highlight. */
if (mouse_last_x != mouse_prev_x || mouse_last_y != mouse_prev_y)
{
if (x_autoselect_window_p)
{
int mouse_area;
Lisp_Object mouse_window;
mouse_window = window_from_coordinates (SELECTED_FRAME(),
mouse_last_x,
mouse_last_y,
&mouse_area, 0);
/* A window will be selected only when it is not
selected now and last mouse movement event was not in
it. A minubuffer window will be selected iff it is
active. */
if (!EQ (mouse_window, selected_window)
&& (!MINI_WINDOW_P (XWINDOW (mouse_window))
|| (EQ (mouse_window, minibuf_window)
&& minibuf_level > 0)))
{
Fselect_window (mouse_window);
}
}
previous_help_echo = help_echo;
help_echo = help_echo_object = help_echo_window = Qnil;
help_echo_pos = -1;
@ -5315,6 +5340,10 @@ syms_of_msdos ()
This variable is used only by MSDOS terminals. */);
Vdos_unsupported_char_glyph = '\177';
DEFVAR_BOOL ("x-autoselect-window", &x_autoselect_window_p,
doc: /* *Non-nil means autoselect window with mouse pointer. */);
x_autoselect_window_p = 0;
#endif
#ifndef subprocesses
DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,