mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(last_mouse_window): New variable.

Browse Source 
(dos_rawgetc): Fix last change--if the mouse is in the same window
as recorded in last_mouse_window, don't select this window.
This commit is contained in:
Eli Zaretskii 2002-02-16 19:25:24 +00:00
parent 94384150a6
commit 9005a471f2
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@ -1,5 +1,9 @@
2002-02-16 Eli Zaretskii <eliz@is.elta.co.il>
* msdos.c (last_mouse_window): New variable.
(dos_rawgetc): Fix last change--if the mouse is in the same window
as recorded in last_mouse_window, don't select this window.
* Makefile.in (lisp, shortlisp): Use cus-start.elc, not
cus-start.el.

14
src/msdos.c
View File

@ -1200,6 +1200,9 @@ static int help_echo_pos;
cursor moves into it. */
int x_autoselect_window_p;
/* Last window where we saw the mouse. Used by x-autoselect-window. */
static Lisp_Object last_mouse_window;
static int mouse_preempted = 0; /* non-zero when XMenu gobbles mouse events */
/* Set the mouse pointer shape according to whether it is in the
@ -3402,17 +3405,20 @@ dos_rawgetc ()
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)
selected now. A minubuffer window will be selected
iff it is active. */
if (!EQ (mouse_window, last_mouse_window)
&& !EQ (mouse_window, selected_window)
&& (!MINI_WINDOW_P (XWINDOW (mouse_window))
|| (EQ (mouse_window, minibuf_window)
&& minibuf_level > 0)))
{
Fselect_window (mouse_window);
}
last_mouse_window = mouse_window;
}
else
last_mouse_window = Qnil;
previous_help_echo = help_echo;
help_echo = help_echo_object = help_echo_window = Qnil;
help_echo_pos = -1;