diff options
Diffstat (limited to 'src/w32fns.c')
| -rw-r--r-- | src/w32fns.c | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/src/w32fns.c b/src/w32fns.c index f3391cb98f0..c1d9bff98ab 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -1666,10 +1666,7 @@ x_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval) | |||
| 1666 | FRAME_MENU_BAR_LINES (f) = 0; | 1666 | FRAME_MENU_BAR_LINES (f) = 0; |
| 1667 | FRAME_MENU_BAR_HEIGHT (f) = 0; | 1667 | FRAME_MENU_BAR_HEIGHT (f) = 0; |
| 1668 | if (nlines) | 1668 | if (nlines) |
| 1669 | { | 1669 | FRAME_EXTERNAL_MENU_BAR (f) = 1; |
| 1670 | FRAME_EXTERNAL_MENU_BAR (f) = 1; | ||
| 1671 | windows_or_buffers_changed = 23; | ||
| 1672 | } | ||
| 1673 | else | 1670 | else |
| 1674 | { | 1671 | { |
| 1675 | if (FRAME_EXTERNAL_MENU_BAR (f) == 1) | 1672 | if (FRAME_EXTERNAL_MENU_BAR (f) == 1) |
| @@ -4620,8 +4617,7 @@ my_create_tip_window (struct frame *f) | |||
| 4620 | rect.right = FRAME_PIXEL_WIDTH (f); | 4617 | rect.right = FRAME_PIXEL_WIDTH (f); |
| 4621 | rect.bottom = FRAME_PIXEL_HEIGHT (f); | 4618 | rect.bottom = FRAME_PIXEL_HEIGHT (f); |
| 4622 | 4619 | ||
| 4623 | AdjustWindowRect (&rect, f->output_data.w32->dwStyle, | 4620 | AdjustWindowRect (&rect, f->output_data.w32->dwStyle, false); |
| 4624 | FRAME_EXTERNAL_MENU_BAR (f)); | ||
| 4625 | 4621 | ||
| 4626 | tip_window = FRAME_W32_WINDOW (f) | 4622 | tip_window = FRAME_W32_WINDOW (f) |
| 4627 | = CreateWindow (EMACS_CLASS, | 4623 | = CreateWindow (EMACS_CLASS, |
| @@ -6381,7 +6377,7 @@ compute_tip_xy (struct frame *f, | |||
| 6381 | if (INTEGERP (left)) | 6377 | if (INTEGERP (left)) |
| 6382 | *root_x = XINT (left); | 6378 | *root_x = XINT (left); |
| 6383 | else if (INTEGERP (right)) | 6379 | else if (INTEGERP (right)) |
| 6384 | *root_y = XINT (right) - width; | 6380 | *root_x = XINT (right) - width; |
| 6385 | else if (*root_x + XINT (dx) <= min_x) | 6381 | else if (*root_x + XINT (dx) <= min_x) |
| 6386 | *root_x = 0; /* Can happen for negative dx */ | 6382 | *root_x = 0; /* Can happen for negative dx */ |
| 6387 | else if (*root_x + XINT (dx) + width <= max_x) | 6383 | else if (*root_x + XINT (dx) + width <= max_x) |
| @@ -6681,8 +6677,7 @@ Text larger than the specified size is clipped. */) | |||
| 6681 | rect.left = rect.top = 0; | 6677 | rect.left = rect.top = 0; |
| 6682 | rect.right = width; | 6678 | rect.right = width; |
| 6683 | rect.bottom = height; | 6679 | rect.bottom = height; |
| 6684 | AdjustWindowRect (&rect, f->output_data.w32->dwStyle, | 6680 | AdjustWindowRect (&rect, f->output_data.w32->dwStyle, false); |
| 6685 | FRAME_EXTERNAL_MENU_BAR (f)); | ||
| 6686 | 6681 | ||
| 6687 | /* Position and size tooltip, and put it in the topmost group. | 6682 | /* Position and size tooltip, and put it in the topmost group. |
| 6688 | The add-on of FRAME_COLUMN_WIDTH to the 5th argument is a | 6683 | The add-on of FRAME_COLUMN_WIDTH to the 5th argument is a |
| @@ -8098,11 +8093,22 @@ The coordinates X and Y are interpreted in pixels relative to a position | |||
| 8098 | (0, 0) of the selected frame's display. */) | 8093 | (0, 0) of the selected frame's display. */) |
| 8099 | (Lisp_Object x, Lisp_Object y) | 8094 | (Lisp_Object x, Lisp_Object y) |
| 8100 | { | 8095 | { |
| 8096 | UINT trail_num = 0; | ||
| 8097 | BOOL ret = false; | ||
| 8098 | |||
| 8101 | CHECK_TYPE_RANGED_INTEGER (int, x); | 8099 | CHECK_TYPE_RANGED_INTEGER (int, x); |
| 8102 | CHECK_TYPE_RANGED_INTEGER (int, y); | 8100 | CHECK_TYPE_RANGED_INTEGER (int, y); |
| 8103 | 8101 | ||
| 8104 | block_input (); | 8102 | block_input (); |
| 8103 | /* When "mouse trails" are in effect, moving the mouse cursor | ||
| 8104 | sometimes leaves behind an annoying "ghost" of the pointer. | ||
| 8105 | Avoid that by momentarily switching off mouse trails. */ | ||
| 8106 | if (os_subtype == OS_NT | ||
| 8107 | && w32_major_version + w32_minor_version >= 6) | ||
| 8108 | ret = SystemParametersInfo (SPI_GETMOUSETRAILS, 0, &trail_num, 0); | ||
| 8105 | SetCursorPos (XINT (x), XINT (y)); | 8109 | SetCursorPos (XINT (x), XINT (y)); |
| 8110 | if (ret) | ||
| 8111 | SystemParametersInfo (SPI_SETMOUSETRAILS, trail_num, NULL, 0); | ||
| 8106 | unblock_input (); | 8112 | unblock_input (); |
| 8107 | 8113 | ||
| 8108 | return Qnil; | 8114 | return Qnil; |
| @@ -9925,10 +9931,6 @@ globals_of_w32fns (void) | |||
| 9925 | InitCommonControls (); | 9931 | InitCommonControls (); |
| 9926 | 9932 | ||
| 9927 | syms_of_w32uniscribe (); | 9933 | syms_of_w32uniscribe (); |
| 9928 | |||
| 9929 | /* Needed for recovery from C stack overflows in batch mode. */ | ||
| 9930 | if (noninteractive) | ||
| 9931 | dwMainThreadId = GetCurrentThreadId (); | ||
| 9932 | } | 9934 | } |
| 9933 | 9935 | ||
| 9934 | #ifdef NTGUI_UNICODE | 9936 | #ifdef NTGUI_UNICODE |