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