Mercurial > emacs
comparison src/w32term.c @ 44302:bc30b29aead6
Rename x_autoselect_window_p to autoselect_window_p.
(note_mouse_movement): Put code for x_autoselect_window_p in #if 0.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 01 Apr 2002 13:45:27 +0000 |
parents | 8ea0c09f5cb8 |
children | ff9f7aee02c8 |
comparison
equal
deleted
inserted
replaced
44301:1892db006468 | 44302:bc30b29aead6 |
---|---|
170 | 170 |
171 static int any_help_event_p; | 171 static int any_help_event_p; |
172 | 172 |
173 /* Non-zero means autoselect window with the mouse cursor. */ | 173 /* Non-zero means autoselect window with the mouse cursor. */ |
174 | 174 |
175 int x_autoselect_window_p; | 175 int autoselect_window_p; |
176 | 176 |
177 /* Non-zero means draw block and hollow cursor as wide as the glyph | 177 /* Non-zero means draw block and hollow cursor as wide as the glyph |
178 under it. For example, if a block cursor is over a tab, it will be | 178 under it. For example, if a block cursor is over a tab, it will be |
179 drawn as wide as that tab on the display. */ | 179 drawn as wide as that tab on the display. */ |
180 | 180 |
6293 | 6293 |
6294 last_mouse_movement_time = msg->time; | 6294 last_mouse_movement_time = msg->time; |
6295 memcpy (&last_mouse_motion_event, msg, sizeof (last_mouse_motion_event)); | 6295 memcpy (&last_mouse_motion_event, msg, sizeof (last_mouse_motion_event)); |
6296 XSETFRAME (last_mouse_motion_frame, frame); | 6296 XSETFRAME (last_mouse_motion_frame, frame); |
6297 | 6297 |
6298 if (x_autoselect_window_p) | 6298 #if 0 /* Calling Lisp asynchronously is not safe. */ |
6299 if (autoselect_window_p) | |
6299 { | 6300 { |
6300 int area; | 6301 int area; |
6301 Lisp_Object window; | 6302 Lisp_Object window; |
6302 static Lisp_Object last_window; | 6303 static Lisp_Object last_window; |
6303 | 6304 |
6312 || (EQ (window, minibuf_window) && minibuf_level > 0))) | 6313 || (EQ (window, minibuf_window) && minibuf_level > 0))) |
6313 Fselect_window (window); | 6314 Fselect_window (window); |
6314 | 6315 |
6315 last_window=window; | 6316 last_window=window; |
6316 } | 6317 } |
6318 #endif | |
6317 | 6319 |
6318 if (msg->hwnd != FRAME_W32_WINDOW (frame)) | 6320 if (msg->hwnd != FRAME_W32_WINDOW (frame)) |
6319 { | 6321 { |
6320 frame->mouse_moved = 1; | 6322 frame->mouse_moved = 1; |
6321 last_mouse_scroll_bar = Qnil; | 6323 last_mouse_scroll_bar = Qnil; |
11384 staticpro (&help_echo_window); | 11386 staticpro (&help_echo_window); |
11385 previous_help_echo = Qnil; | 11387 previous_help_echo = Qnil; |
11386 staticpro (&previous_help_echo); | 11388 staticpro (&previous_help_echo); |
11387 help_echo_pos = -1; | 11389 help_echo_pos = -1; |
11388 | 11390 |
11389 DEFVAR_BOOL ("x-autoselect-window", &x_autoselect_window_p, | 11391 DEFVAR_BOOL ("autoselect-window", &autoselect_window_p, |
11390 doc: /* *Non-nil means autoselect window with mouse pointer. */); | 11392 doc: /* *Non-nil means autoselect window with mouse pointer. */); |
11391 x_autoselect_window_p = 0; | 11393 autoselect_window_p = 0; |
11392 | 11394 |
11393 DEFVAR_BOOL ("w32-use-visible-system-caret", | 11395 DEFVAR_BOOL ("w32-use-visible-system-caret", |
11394 &w32_use_visible_system_caret, | 11396 &w32_use_visible_system_caret, |
11395 doc: /* Flag to make the system caret visible. | 11397 doc: /* Flag to make the system caret visible. |
11396 When this is non-nil, Emacs will indicate the position of point by | 11398 When this is non-nil, Emacs will indicate the position of point by |