annotate src/w32inevt.c @ 112213:6e613fbf73d7

Use run-mode-hooks for major mode hooks. * lisp/textmodes/reftex-toc.el (reftex-toc-mode-map): Rename from reftex-toc-map. (reftex-toc-mode): Use define-derived-mode. * lisp/textmodes/reftex-sel.el (reftex-select-shared-map): New map. (reftex-select-label-mode-map, reftex-select-bib-mode-map): Rename from reftex-select-(label|bib)-map. Move init into declaration. (reftex-select-label-mode, reftex-select-bib-mode): Use define-derived-mode. * lisp/textmodes/reftex-index.el (reftex-index-phrases-mode-map) (reftex-index-mode-map): Rename from reftex-index(-phrases)-map. Move init into delcaration. (reftex-index-mode, reftex-index-phrases-mode): Use define-derived-mode. * lisp/speedbar.el (speedbar-mode-syntax-table): Renaqme from speedbar-syntax-table. Move init into declaration. (speedbar-mode-map): Rename from speedbar-key-map. Move init into declaration. (speedbar-file-key-map): Move init into declaration. (speedbar-mode): Use define-derived-mode. * lisp/recentf.el (recentf-mode): Don't run hook (or message) redundantly. * lisp/net/rcirc.el (rcirc-mode): Use run-mode-hooks. * lisp/emacs-lisp/chart.el (chart-mode-map): Rename from chart-map. (chart-face-list): Move initialization into declaration. (chart-mode): Use define-derived-mode. * lisp/calculator.el (calculator-mode-map): Move init into declaration. (calculator-mode): Use define-derived-mode. * lisp/cedet/srecode/srt-mode.el (srecode-template-mode): Use define-derived-mode. * lisp/cedet/semantic/symref/list.el (semantic-symref-results-mode): Use run-mode-hooks. * lisp/erc/erc.el (erc-mode): * lisp/erc/erc-dcc.el (erc-dcc-chat-mode): Use define-derived-mode. * lisp/org/org-remember.el (org-remember-mode): * lisp/org/org-capture.el (org-capture-mode): Don't run hook redundantly.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 13 Jan 2011 18:14:30 -0500
parents 3207606734d5
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
1 /* Input event support for Emacs on the Microsoft W32 API.
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
2 Copyright (C) 1992, 1993, 1995, 2001, 2002, 2003, 2004, 2005, 2006,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105669
diff changeset
3 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
5 This file is part of GNU Emacs.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
8 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
10 (at your option) any later version.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
15 GNU General Public License for more details.
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 12544
diff changeset
17 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
20 /*
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 Drew Bliss 01-Oct-93
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 Adapted from ntkbd.c by Tim Fleehart
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
42469
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 35284
diff changeset
26 #include <config.h>
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <stdio.h>
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include <windows.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 101682
diff changeset
29 #include <setjmp.h>
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30
31113
1743924e00dd Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 29319
diff changeset
31 #ifndef MOUSE_MOVED
1743924e00dd Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 29319
diff changeset
32 #define MOUSE_MOVED 1
1743924e00dd Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 29319
diff changeset
33 #endif
1743924e00dd Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 29319
diff changeset
34
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 #include "lisp.h"
31113
1743924e00dd Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 29319
diff changeset
36 #include "keyboard.h"
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 #include "frame.h"
80615
ed3882ec9644 Backport of long term bug from trunk:
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
38 #include "dispextern.h"
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 #include "blockinput.h"
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 #include "termhooks.h"
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
41 #include "w32heap.h"
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
42 #include "w32term.h"
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 /* stdin, from ntterm */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 extern HANDLE keyboard_handle;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 /* Info for last mouse motion */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 static COORD movement_pos;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 static DWORD movement_time;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 /* from keyboard.c */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 extern void reinvoke_input_signal (void);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
24937
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
54 /* from w32console.c */
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
55 extern int w32_use_full_screen_buffer;
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
56
15460
be07c4433554 (Vwin32_alt_is_meta): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 15144
diff changeset
57 /* from w32fns.c */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15784
diff changeset
58 extern Lisp_Object Vw32_alt_is_meta;
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
59 extern unsigned int map_keypad_keys (unsigned int, unsigned int);
15460
be07c4433554 (Vwin32_alt_is_meta): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 15144
diff changeset
60
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
61 /* from w32term */
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
62 extern Lisp_Object Vw32_capslock_is_shiftlock;
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
63 extern Lisp_Object Vw32_enable_caps_lock;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
64 extern Lisp_Object Vw32_enable_num_lock;
21611
1a4fc4d9ca9a (Vw32_recognize_altgr): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19710
diff changeset
65 extern Lisp_Object Vw32_recognize_altgr;
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
66 extern Lisp_Object Vw32_pass_lwindow_to_system;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
67 extern Lisp_Object Vw32_pass_rwindow_to_system;
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
68 extern Lisp_Object Vw32_phantom_key_code;
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
69 extern Lisp_Object Vw32_lwindow_modifier;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
70 extern Lisp_Object Vw32_rwindow_modifier;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
71 extern Lisp_Object Vw32_apps_modifier;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
72 extern Lisp_Object Vw32_scroll_lock_modifier;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
73 extern unsigned int w32_key_to_modifier (int key);
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
74
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 /* Event queue */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 #define EVENT_QUEUE_SIZE 50
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 static INPUT_RECORD event_queue[EVENT_QUEUE_SIZE];
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 static INPUT_RECORD *queue_ptr = event_queue, *queue_end = event_queue;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
80 /* Temporarily store lead byte of DBCS input sequences. */
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
81 static char dbcs_lead = 0;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
82
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
83 static int
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 fill_queue (BOOL block)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 BOOL rc;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 DWORD events_waiting;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
88
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 if (queue_ptr < queue_end)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 return queue_end-queue_ptr;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
91
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 if (!block)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 /* Check to see if there are some events to read before we try
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 because we can't block. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 if (!GetNumberOfConsoleInputEvents (keyboard_handle, &events_waiting))
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 if (events_waiting == 0)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
101
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 rc = ReadConsoleInput (keyboard_handle, event_queue, EVENT_QUEUE_SIZE,
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 &events_waiting);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 if (!rc)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 queue_ptr = event_queue;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 queue_end = event_queue + events_waiting;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 return (int) events_waiting;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 /* In a generic, multi-frame world this should take a console handle
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 and return the frame for it
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 Right now, there's only one frame so return it. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
115 static FRAME_PTR
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 get_frame (void)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 {
27399
22e4449438ff (get_frame, w32_console_mouse_position, mouse_moved_to):
Jason Rumney <jasonr@gnu.org>
parents: 24937
diff changeset
118 return SELECTED_FRAME ();
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
121 /* Translate console modifiers to emacs modifiers.
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
122 German keyboard support (Kai Morgan Zeise 2/18/95). */
15144
9dd18e9e0362 (win32_kdb_patch_key): Initialize isdead.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14463
diff changeset
123 int
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
124 w32_kbd_mods_to_emacs (DWORD mods, WORD key)
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
125 {
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
126 int retval = 0;
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
127
21611
1a4fc4d9ca9a (Vw32_recognize_altgr): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19710
diff changeset
128 /* If we recognize right-alt and left-ctrl as AltGr, and it has been
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
129 pressed, first remove those modifiers. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
130 if (!NILP (Vw32_recognize_altgr)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
131 && (mods & (RIGHT_ALT_PRESSED | LEFT_CTRL_PRESSED))
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
132 == (RIGHT_ALT_PRESSED | LEFT_CTRL_PRESSED))
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
133 mods &= ~ (RIGHT_ALT_PRESSED | LEFT_CTRL_PRESSED);
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
134
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
135 if (mods & (RIGHT_ALT_PRESSED | LEFT_ALT_PRESSED))
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15784
diff changeset
136 retval = ((NILP (Vw32_alt_is_meta)) ? alt_modifier : meta_modifier);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
137
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
138 if (mods & (RIGHT_CTRL_PRESSED | LEFT_CTRL_PRESSED))
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
139 {
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
140 retval |= ctrl_modifier;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
141 if ((mods & (RIGHT_CTRL_PRESSED | LEFT_CTRL_PRESSED))
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
142 == (RIGHT_CTRL_PRESSED | LEFT_CTRL_PRESSED))
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
143 retval |= meta_modifier;
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
144 }
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
145
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
146 if (mods & LEFT_WIN_PRESSED)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
147 retval |= w32_key_to_modifier (VK_LWIN);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
148 if (mods & RIGHT_WIN_PRESSED)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
149 retval |= w32_key_to_modifier (VK_RWIN);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
150 if (mods & APPS_PRESSED)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
151 retval |= w32_key_to_modifier (VK_APPS);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
152 if (mods & SCROLLLOCK_ON)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
153 retval |= w32_key_to_modifier (VK_SCROLL);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
154
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 94963
diff changeset
155 /* Just in case someone wanted the original behavior, make it
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
156 optional by setting w32-capslock-is-shiftlock to t. */
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
157 if (NILP (Vw32_capslock_is_shiftlock)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
158 /* Keys that should _not_ be affected by CapsLock. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
159 && ( (key == VK_BACK)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
160 || (key == VK_TAB)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
161 || (key == VK_CLEAR)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
162 || (key == VK_RETURN)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
163 || (key == VK_ESCAPE)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
164 || ((key >= VK_SPACE) && (key <= VK_HELP))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
165 || ((key >= VK_NUMPAD0) && (key <= VK_F24))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
166 || ((key >= VK_NUMPAD_CLEAR) && (key <= VK_NUMPAD_DELETE))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
167 ))
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
168 {
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
169 /* Only consider shift state. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
170 if ((mods & SHIFT_PRESSED) != 0)
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
171 retval |= shift_modifier;
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
172 }
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
173 else
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
174 {
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
175 /* Ignore CapsLock state if not enabled. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
176 if (NILP (Vw32_enable_caps_lock))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
177 mods &= ~CAPSLOCK_ON;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
178 if ((mods & (SHIFT_PRESSED | CAPSLOCK_ON)) != 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
179 retval |= shift_modifier;
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
180 }
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
181
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
182 return retval;
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
183 }
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
184
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
185 #if 0
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
186 /* Return nonzero if the virtual key is a dead key. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
187 static int
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
188 is_dead_key (int wparam)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
189 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
190 unsigned int code = MapVirtualKey (wparam, 2);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
191
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
192 /* Windows 95 returns 0x8000, NT returns 0x80000000. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
193 return (code & 0x80008000) ? 1 : 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
194 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
195 #endif
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
196
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
197 /* The return code indicates key code size. */
14463
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
198 int
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15784
diff changeset
199 w32_kbd_patch_key (KEY_EVENT_RECORD *event)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 {
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
201 unsigned int key_code = event->wVirtualKeyCode;
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
202 unsigned int mods = event->dwControlKeyState;
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
203 BYTE keystate[256];
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
204 static BYTE ansi_code[4];
15144
9dd18e9e0362 (win32_kdb_patch_key): Initialize isdead.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14463
diff changeset
205 static int isdead = 0;
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
206
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
207 if (isdead == 2)
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
208 {
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
209 event->uChar.AsciiChar = ansi_code[2];
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
210 isdead = 0;
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
211 return 1;
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
212 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
213 if (event->uChar.AsciiChar != 0)
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
214 return 1;
14463
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
215
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
216 memset (keystate, 0, sizeof (keystate));
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
217 keystate[key_code] = 0x80;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
218 if (mods & SHIFT_PRESSED)
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
219 keystate[VK_SHIFT] = 0x80;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
220 if (mods & CAPSLOCK_ON)
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
221 keystate[VK_CAPITAL] = 1;
21611
1a4fc4d9ca9a (Vw32_recognize_altgr): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19710
diff changeset
222 /* If we recognize right-alt and left-ctrl as AltGr, set the key
1a4fc4d9ca9a (Vw32_recognize_altgr): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19710
diff changeset
223 states accordingly before invoking ToAscii. */
1a4fc4d9ca9a (Vw32_recognize_altgr): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19710
diff changeset
224 if (!NILP (Vw32_recognize_altgr)
1a4fc4d9ca9a (Vw32_recognize_altgr): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19710
diff changeset
225 && (mods & LEFT_CTRL_PRESSED) && (mods & RIGHT_ALT_PRESSED))
14463
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
226 {
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
227 keystate[VK_CONTROL] = 0x80;
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
228 keystate[VK_LCONTROL] = 0x80;
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
229 keystate[VK_MENU] = 0x80;
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
230 keystate[VK_RMENU] = 0x80;
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
231 }
24e5bd545f4d (win32_kbd_mods_to_emacs, win32_kbd_patch_key,
Geoff Voelker <voelker@cs.washington.edu>
parents: 14245
diff changeset
232
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
233 #if 0
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
234 /* Because of an OS bug, ToAscii corrupts the stack when called to
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
235 convert a dead key in console mode on NT4. Unfortunately, trying
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
236 to check for dead keys using MapVirtualKey doesn't work either -
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
237 these functions apparently use internal information about keyboard
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
238 layout which doesn't get properly updated in console programs when
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
239 changing layout (though apparently it gets partly updated,
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
240 otherwise ToAscii wouldn't crash). */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
241 if (is_dead_key (event->wVirtualKeyCode))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
242 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
243 #endif
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
244
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
245 /* On NT, call ToUnicode instead and then convert to the current
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
246 locale's default codepage. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
247 if (os_subtype == OS_NT)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
248 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
249 WCHAR buf[128];
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
250
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
251 isdead = ToUnicode (event->wVirtualKeyCode, event->wVirtualScanCode,
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
252 keystate, buf, 128, 0);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
253 if (isdead > 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
254 {
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
255 char cp[20];
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
256 int cpId;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
257
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
258 event->uChar.UnicodeChar = buf[isdead - 1];
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
259
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
260 GetLocaleInfo (GetThreadLocale (),
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
261 LOCALE_IDEFAULTANSICODEPAGE, cp, 20);
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
262 cpId = atoi (cp);
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
263 isdead = WideCharToMultiByte (cpId, 0, buf, isdead,
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
264 ansi_code, 4, NULL, NULL);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
265 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
266 else
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
267 isdead = 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
268 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
269 else
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
270 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
271 isdead = ToAscii (event->wVirtualKeyCode, event->wVirtualScanCode,
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
272 keystate, (LPWORD) ansi_code, 0);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
273 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
274
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
275 if (isdead == 0)
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
276 return 0;
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
277 event->uChar.AsciiChar = ansi_code[0];
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
278 return isdead;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 }
15144
9dd18e9e0362 (win32_kdb_patch_key): Initialize isdead.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14463
diff changeset
280
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281
111539
ad93f2dd2d38 Add const to array elements.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 110975
diff changeset
282 extern const char *const lispy_function_keys[];
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
284 static int faked_key = 0;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
285
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
286 /* return code -1 means that event_queue_ptr won't be incremented.
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
287 In other word, this event makes two key codes. (by himi) */
110975
e0ac9a58795e src/w32*.c: Make functions static.
Juanma Barranquero <lekktu@gmail.com>
parents: 110683
diff changeset
288 static int
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
289 key_event (KEY_EVENT_RECORD *event, struct input_event *emacs_ev, int *isdead)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 {
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
291 static int mod_key_state = 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
292 int wParam;
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
293
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
294 *isdead = 0;
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
295
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 /* Skip key-up events. */
15144
9dd18e9e0362 (win32_kdb_patch_key): Initialize isdead.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14463
diff changeset
297 if (!event->bKeyDown)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 {
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
299 switch (event->wVirtualKeyCode)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
300 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
301 case VK_LWIN:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
302 mod_key_state &= ~LEFT_WIN_PRESSED;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
303 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
304 case VK_RWIN:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
305 mod_key_state &= ~RIGHT_WIN_PRESSED;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
306 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
307 case VK_APPS:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
308 mod_key_state &= ~APPS_PRESSED;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
309 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
310 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
311 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
312 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
313
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
314 /* Ignore keystrokes we fake ourself; see below. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
315 if (faked_key == event->wVirtualKeyCode)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
316 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
317 faked_key = 0;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 }
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
320
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
321 /* To make it easier to debug this code, ignore modifier keys! */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
322 switch (event->wVirtualKeyCode)
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
323 {
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
324 case VK_LWIN:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
325 if (NILP (Vw32_pass_lwindow_to_system))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
326 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
327 /* Prevent system from acting on keyup (which opens the Start
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
328 menu if no other key was pressed) by simulating a press of
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
329 Space which we will ignore. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
330 if ((mod_key_state & LEFT_WIN_PRESSED) == 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
331 {
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
332 if (NUMBERP (Vw32_phantom_key_code))
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
333 faked_key = XUINT (Vw32_phantom_key_code) & 255;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
334 else
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
335 faked_key = VK_SPACE;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
336 keybd_event (faked_key, (BYTE) MapVirtualKey (faked_key, 0), 0, 0);
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
337 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
338 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
339 mod_key_state |= LEFT_WIN_PRESSED;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
340 if (!NILP (Vw32_lwindow_modifier))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
341 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
342 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
343 case VK_RWIN:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
344 if (NILP (Vw32_pass_rwindow_to_system))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
345 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
346 if ((mod_key_state & RIGHT_WIN_PRESSED) == 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
347 {
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
348 if (NUMBERP (Vw32_phantom_key_code))
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
349 faked_key = XUINT (Vw32_phantom_key_code) & 255;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
350 else
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
351 faked_key = VK_SPACE;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
352 keybd_event (faked_key, (BYTE) MapVirtualKey (faked_key, 0), 0, 0);
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
353 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
354 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
355 mod_key_state |= RIGHT_WIN_PRESSED;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
356 if (!NILP (Vw32_rwindow_modifier))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
357 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
358 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
359 case VK_APPS:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
360 mod_key_state |= APPS_PRESSED;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
361 if (!NILP (Vw32_apps_modifier))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
362 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
363 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
364 case VK_CAPITAL:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
365 /* Decide whether to treat as modifier or function key. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
366 if (NILP (Vw32_enable_caps_lock))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
367 goto disable_lock_key;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
368 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
369 case VK_NUMLOCK:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
370 /* Decide whether to treat as modifier or function key. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
371 if (NILP (Vw32_enable_num_lock))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
372 goto disable_lock_key;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
373 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
374 case VK_SCROLL:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
375 /* Decide whether to treat as modifier or function key. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
376 if (NILP (Vw32_scroll_lock_modifier))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
377 goto disable_lock_key;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
378 return 0;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
379 disable_lock_key:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
380 /* Ensure the appropriate lock key state is off (and the
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
381 indicator light as well). */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
382 wParam = event->wVirtualKeyCode;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
383 if (GetAsyncKeyState (wParam) & 0x8000)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
384 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
385 /* Fake another press of the relevant key. Apparently, this
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
386 really is the only way to turn off the indicator. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
387 faked_key = wParam;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
388 keybd_event ((BYTE) wParam, (BYTE) MapVirtualKey (wParam, 0),
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
389 KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
390 keybd_event ((BYTE) wParam, (BYTE) MapVirtualKey (wParam, 0),
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
391 KEYEVENTF_EXTENDEDKEY | 0, 0);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
392 keybd_event ((BYTE) wParam, (BYTE) MapVirtualKey (wParam, 0),
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
393 KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
394 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
395 break;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
396 case VK_MENU:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
397 case VK_CONTROL:
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
398 case VK_SHIFT:
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 return 0;
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
400 case VK_CANCEL:
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
401 /* Windows maps Ctrl-Pause (aka Ctrl-Break) into VK_CANCEL,
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
402 which is confusing for purposes of key binding; convert
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
403 VK_CANCEL events into VK_PAUSE events. */
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
404 event->wVirtualKeyCode = VK_PAUSE;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
405 break;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
406 case VK_PAUSE:
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
407 /* Windows maps Ctrl-NumLock into VK_PAUSE, which is confusing
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
408 for purposes of key binding; convert these back into
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
409 VK_NUMLOCK events, at least when we want to see NumLock key
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
410 presses. (Note that there is never any possibility that
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
411 VK_PAUSE with Ctrl really is C-Pause as per above.) */
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
412 if (NILP (Vw32_enable_num_lock)
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
413 && (event->dwControlKeyState
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
414 & (LEFT_CTRL_PRESSED | RIGHT_CTRL_PRESSED)) != 0)
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
415 event->wVirtualKeyCode = VK_NUMLOCK;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
416 break;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 }
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
418
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
419 /* Recognize state of Windows and Apps keys. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
420 event->dwControlKeyState |= mod_key_state;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
421
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
422 /* Distinguish numeric keypad keys from extended keys. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
423 event->wVirtualKeyCode =
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
424 map_keypad_keys (event->wVirtualKeyCode,
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
425 (event->dwControlKeyState & ENHANCED_KEY));
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
426
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
427 if (lispy_function_keys[event->wVirtualKeyCode] == 0)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 {
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
429 if (!NILP (Vw32_recognize_altgr)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
430 && (event->dwControlKeyState & LEFT_CTRL_PRESSED)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
431 && (event->dwControlKeyState & RIGHT_ALT_PRESSED))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
432 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
433 /* Don't try to interpret AltGr key chords; ToAscii seems not
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
434 to process them correctly. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
435 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
436 /* Handle key chords including any modifiers other than shift
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
437 directly, in order to preserve as much modifier information as
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
438 possible. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
439 else if (event->dwControlKeyState
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
440 & ( RIGHT_CTRL_PRESSED | LEFT_CTRL_PRESSED
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
441 | RIGHT_ALT_PRESSED | LEFT_ALT_PRESSED
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
442 | (!NILP (Vw32_lwindow_modifier) ? LEFT_WIN_PRESSED : 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
443 | (!NILP (Vw32_rwindow_modifier) ? RIGHT_WIN_PRESSED : 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
444 | (!NILP (Vw32_apps_modifier) ? APPS_PRESSED : 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
445 | (!NILP (Vw32_scroll_lock_modifier) ? SCROLLLOCK_ON : 0)))
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
446 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
447 /* Don't translate modified alphabetic keystrokes, so the user
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
448 doesn't need to constantly switch layout to type control or
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
449 meta keystrokes when the normal layout translates
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
450 alphabetic characters to non-ascii characters. */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
451 if ('A' <= event->wVirtualKeyCode && event->wVirtualKeyCode <= 'Z')
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
452 {
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
453 event->uChar.AsciiChar = event->wVirtualKeyCode;
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
454 if ((event->dwControlKeyState & SHIFT_PRESSED) == 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
455 event->uChar.AsciiChar += ('a' - 'A');
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
456 }
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
457 /* Try to handle unrecognized keystrokes by determining the
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
458 base character (ie. translating the base key plus shift
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
459 modifier). */
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
460 else if (event->uChar.AsciiChar == 0)
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
461 w32_kbd_patch_key (event);
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
462 }
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
463
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
464 if (event->uChar.AsciiChar == 0)
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
465 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
466 emacs_ev->kind = NO_EVENT;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
467 return 0;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
468 }
107043
3809515a97b5 w32inevt.c (key_event): Remove unnecessary comparison of
Eli Zaretskii <eliz@gnu.org>
parents: 107016
diff changeset
469 else if (event->uChar.AsciiChar > 0)
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
470 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
471 emacs_ev->kind = ASCII_KEYSTROKE_EVENT;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
472 emacs_ev->code = event->uChar.AsciiChar;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
473 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
474 else if (event->uChar.UnicodeChar > 0)
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
475 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
476 emacs_ev->kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
477 emacs_ev->code = event->uChar.UnicodeChar;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
478 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
479 else
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
480 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
481 /* Fallback for non-Unicode versions of Windows. */
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
482 wchar_t code;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
483 char dbcs[2];
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
484 char cp[20];
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
485 int cpId;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
486
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
487 /* Get the codepage to interpret this key with. */
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
488 GetLocaleInfo (GetThreadLocale (),
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
489 LOCALE_IDEFAULTANSICODEPAGE, cp, 20);
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
490 cpId = atoi (cp);
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
491
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
492 dbcs[0] = dbcs_lead;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
493 dbcs[1] = event->uChar.AsciiChar;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
494 if (dbcs_lead)
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
495 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
496 dbcs_lead = 0;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
497 if (!MultiByteToWideChar (cpId, 0, dbcs, 2, &code, 1))
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
498 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
499 /* Garbage */
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
500 DebPrint (("Invalid DBCS sequence: %d %d\n",
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
501 dbcs[0], dbcs[1]));
107016
b7aa72d41625 Fix typos, check for negative ASCII characters.
Jason Rumney <jasonr@gnu.org>
parents: 107015
diff changeset
502 emacs_ev->kind = NO_EVENT;
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
503 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
504 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
505 else if (IsDBCSLeadByteEx (cpId, dbcs[1]))
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
506 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
507 dbcs_lead = dbcs[1];
107016
b7aa72d41625 Fix typos, check for negative ASCII characters.
Jason Rumney <jasonr@gnu.org>
parents: 107015
diff changeset
508 emacs_ev->kind = NO_EVENT;
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
509 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
510 else
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
511 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
512 if (!MultiByteToWideChar (cpId, 0, &dbcs[1], 1, &code, 1))
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
513 {
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
514 /* Garbage */
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
515 DebPrint (("Invalid character: %d\n", dbcs[1]));
107016
b7aa72d41625 Fix typos, check for negative ASCII characters.
Jason Rumney <jasonr@gnu.org>
parents: 107015
diff changeset
516 emacs_ev->kind = NO_EVENT;
107015
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
517 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
518 }
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
519 emacs_ev->kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
520 emacs_ev->code = code;
0b67a7f89499 Use Unicode for console keyboard input on Windows.
Jason Rumney <jasonr@gnu.org>
parents: 106815
diff changeset
521 }
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 else
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 {
45804
863817d7e734 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 42469
diff changeset
525 emacs_ev->kind = NON_ASCII_KEYSTROKE_EVENT;
55640
773eb057811d (w32_console_mouse_position, do_mouse_event, key_event): Don't mix
Jason Rumney <jasonr@gnu.org>
parents: 54169
diff changeset
526 emacs_ev->code = event->wVirtualKeyCode;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 }
23679
3d02c8b4b525 Include w32term.h and w32heap.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21829
diff changeset
528
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
529 XSETFRAME (emacs_ev->frame_or_window, get_frame ());
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
530 emacs_ev->modifiers = w32_kbd_mods_to_emacs (event->dwControlKeyState,
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
531 event->wVirtualKeyCode);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 emacs_ev->timestamp = GetTickCount ();
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 return 1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
536 int
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
537 w32_console_toggle_lock_key (int vk_code, Lisp_Object new_state)
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
538 {
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
539 int cur_state = (GetKeyState (vk_code) & 1);
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
540
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
541 if (NILP (new_state)
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
542 || (NUMBERP (new_state)
35284
712561c30aa5 (w32_console_toggle_lock_key): Add parentheses.
Jason Rumney <jasonr@gnu.org>
parents: 31113
diff changeset
543 && ((XUINT (new_state)) & 1) != cur_state))
23804
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
544 {
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
545 faked_key = vk_code;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
546
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
547 keybd_event ((BYTE) vk_code,
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
548 (BYTE) MapVirtualKey (vk_code, 0),
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
549 KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
550 keybd_event ((BYTE) vk_code,
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
551 (BYTE) MapVirtualKey (vk_code, 0),
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
552 KEYEVENTF_EXTENDEDKEY | 0, 0);
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
553 keybd_event ((BYTE) vk_code,
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
554 (BYTE) MapVirtualKey (vk_code, 0),
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
555 KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
556 cur_state = !cur_state;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
557 }
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
558
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
559 return cur_state;
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
560 }
aa5a4d0b1591 (key_event): Use Vw32_phantom_key_code. Undo the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23679
diff changeset
561
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 /* Mouse position hook. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
563 void
21829
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
564 w32_console_mouse_position (FRAME_PTR *f,
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
565 int insist,
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
566 Lisp_Object *bar_window,
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
567 enum scroll_bar_part *part,
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
568 Lisp_Object *x,
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
569 Lisp_Object *y,
674d44aeeda1 (w32_console_mouse_position): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 21611
diff changeset
570 unsigned long *time)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 BLOCK_INPUT;
15144
9dd18e9e0362 (win32_kdb_patch_key): Initialize isdead.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14463
diff changeset
573
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
574 insist = insist;
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
575
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 *f = get_frame ();
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 *bar_window = Qnil;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 *part = 0;
27399
22e4449438ff (get_frame, w32_console_mouse_position, mouse_moved_to):
Jason Rumney <jasonr@gnu.org>
parents: 24937
diff changeset
579 SELECTED_FRAME ()->mouse_moved = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
580
109160
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109152
diff changeset
581 XSETINT (*x, movement_pos.X);
f8660b83cdbf Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents: 109152
diff changeset
582 XSETINT (*y, movement_pos.Y);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 *time = movement_time;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
584
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 UNBLOCK_INPUT;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 /* Remember mouse motion and notify emacs. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
589 static void
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 mouse_moved_to (int x, int y)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 /* If we're in the same place, ignore it */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 if (x != movement_pos.X || y != movement_pos.Y)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 {
27399
22e4449438ff (get_frame, w32_console_mouse_position, mouse_moved_to):
Jason Rumney <jasonr@gnu.org>
parents: 24937
diff changeset
595 SELECTED_FRAME ()->mouse_moved = 1;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 movement_pos.X = x;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 movement_pos.Y = y;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 movement_time = GetTickCount ();
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 /* Consoles return button bits in a strange order:
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 least significant - Leftmost button
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 next - Rightmost button
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 next - Leftmost+1
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 next - Leftmost+2...
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 Assume emacs likes three button mice, so
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 Left == 0
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 Middle == 1
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 Right == 2
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 Others increase from there. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613
29319
2069f3aa4939 (NUM_TRANSLATED_MOUSE_BUTTONS): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 27515
diff changeset
614 #define NUM_TRANSLATED_MOUSE_BUTTONS 3
2069f3aa4939 (NUM_TRANSLATED_MOUSE_BUTTONS): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 27515
diff changeset
615 static int emacs_button_translation[NUM_TRANSLATED_MOUSE_BUTTONS] =
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 {
29319
2069f3aa4939 (NUM_TRANSLATED_MOUSE_BUTTONS): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 27515
diff changeset
617 0, 2, 1
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 };
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
620 static int
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 do_mouse_event (MOUSE_EVENT_RECORD *event,
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 struct input_event *emacs_ev)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 static DWORD button_state = 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 DWORD but_change, mask;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 int i;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
627
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 if (event->dwEventFlags == MOUSE_MOVED)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 /* For movement events we just note that the mouse has moved
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 so that emacs will generate drag events. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 mouse_moved_to (event->dwMousePosition.X, event->dwMousePosition.Y);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 return 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
635
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 /* It looks like the console code sends us a mouse event with
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 dwButtonState == 0 when a window is activated. Ignore this case. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 if (event->dwButtonState == button_state)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 return 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
640
45804
863817d7e734 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 42469
diff changeset
641 emacs_ev->kind = MOUSE_CLICK_EVENT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
642
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 /* Find out what button has changed state since the last button event. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 but_change = button_state ^ event->dwButtonState;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 mask = 1;
29319
2069f3aa4939 (NUM_TRANSLATED_MOUSE_BUTTONS): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 27515
diff changeset
646 for (i = 0; mask; i++, mask <<= 1)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 if (but_change & mask)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 {
29319
2069f3aa4939 (NUM_TRANSLATED_MOUSE_BUTTONS): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 27515
diff changeset
649 if (i < NUM_TRANSLATED_MOUSE_BUTTONS)
55640
773eb057811d (w32_console_mouse_position, do_mouse_event, key_event): Don't mix
Jason Rumney <jasonr@gnu.org>
parents: 54169
diff changeset
650 emacs_ev->code = emacs_button_translation[i];
29319
2069f3aa4939 (NUM_TRANSLATED_MOUSE_BUTTONS): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 27515
diff changeset
651 else
55640
773eb057811d (w32_console_mouse_position, do_mouse_event, key_event): Don't mix
Jason Rumney <jasonr@gnu.org>
parents: 54169
diff changeset
652 emacs_ev->code = i;
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 break;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 button_state = event->dwButtonState;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 emacs_ev->timestamp = GetTickCount ();
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
658 emacs_ev->modifiers = w32_kbd_mods_to_emacs (event->dwControlKeyState, 0) |
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 ((event->dwButtonState & mask) ? down_modifier : up_modifier);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
660
10007
10fc4417831d (SET_FRAME, key_event, do_mouse_event): Use accessor macros.
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
661 XSETFASTINT (emacs_ev->x, event->dwMousePosition.X);
10fc4417831d (SET_FRAME, key_event, do_mouse_event): Use accessor macros.
Karl Heuer <kwzh@gnu.org>
parents: 9907
diff changeset
662 XSETFASTINT (emacs_ev->y, event->dwMousePosition.Y);
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
663 /* for Mule 2.2 (Based on Emacs 19.28 */
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
664 #ifdef MULE
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
665 XSET (emacs_ev->frame_or_window, Lisp_Frame, get_frame ());
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
666 #else
11386
62e2ab942896 (do_mouse_event): Use XSETFASTINT.
Karl Heuer <kwzh@gnu.org>
parents: 11123
diff changeset
667 XSETFRAME (emacs_ev->frame_or_window, get_frame ());
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
668 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
669
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 return 1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
673 static void
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 resize_event (WINDOW_BUFFER_SIZE_RECORD *event)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 FRAME_PTR f = get_frame ();
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
677
80615
ed3882ec9644 Backport of long term bug from trunk:
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
678 change_frame_size (f, event->dwSize.Y, event->dwSize.X, 0, 1, 0);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 SET_FRAME_GARBAGED (f);
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681
24756
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
682 static void
109152
e27859da5624 src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents: 107043
diff changeset
683 maybe_generate_resize_event (void)
24756
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
684 {
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
685 CONSOLE_SCREEN_BUFFER_INFO info;
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
686 FRAME_PTR f = get_frame ();
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
687
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
688 GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), &info);
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
689
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
690 /* It is okay to call this unconditionally, since it will do nothing
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
691 if the size hasn't actually changed. */
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
692 change_frame_size (f,
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
693 1 + info.srWindow.Bottom - info.srWindow.Top,
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
694 1 + info.srWindow.Right - info.srWindow.Left,
80615
ed3882ec9644 Backport of long term bug from trunk:
Jason Rumney <jasonr@gnu.org>
parents: 79759
diff changeset
695 0, 0, 0);
24756
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
696 }
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
697
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
698 int
83575
cc3d57dc8761 (w32_console_read_socket): Make first arg a frame.
Jason Rumney <jasonr@gnu.org>
parents: 75227
diff changeset
699 w32_console_read_socket (struct terminal *terminal,
cc3d57dc8761 (w32_console_read_socket): Make first arg a frame.
Jason Rumney <jasonr@gnu.org>
parents: 75227
diff changeset
700 int expected,
cc3d57dc8761 (w32_console_read_socket): Make first arg a frame.
Jason Rumney <jasonr@gnu.org>
parents: 75227
diff changeset
701 struct input_event *hold_quit)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 BOOL no_events = TRUE;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 int nev, ret = 0, add;
19710
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
705 int isdead;
4a6b8c86ad87 Declare externs from other files.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
706
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 if (interrupt_input_blocked)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 interrupt_input_pending = 1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 return -1;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
712
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 interrupt_input_pending = 0;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 BLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
715
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 for (;;)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 {
15784
75547616a6fe (win32_read_socket): Never block reading from input queue.
Richard M. Stallman <rms@gnu.org>
parents: 15460
diff changeset
718 nev = fill_queue (0);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 if (nev <= 0)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 /* If nev == -1, there was some kind of error
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722 If nev == 0 then waitp must be zero and no events were available
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 so return. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 UNBLOCK_INPUT;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 return nev;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727
54169
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
728 while (nev > 0)
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 {
54169
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
730 struct input_event inev;
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
731
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
732 EVENT_INIT (inev);
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
733 inev.kind = NO_EVENT;
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
734 inev.arg = Qnil;
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
735
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 switch (queue_ptr->EventType)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 {
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 case KEY_EVENT:
54169
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
739 add = key_event (&queue_ptr->Event.KeyEvent, &inev, &isdead);
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
740 if (add == -1) /* 95.7.25 by himi */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
741 {
14245
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
742 queue_ptr--;
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
743 add = 1;
59d24d42958a (WIN32_KEY_SHIFTED): Macro undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
744 }
54169
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
745 if (add)
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
746 kbd_buffer_store_event_hold (&inev, hold_quit);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 break;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 case MOUSE_EVENT:
54169
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
750 add = do_mouse_event (&queue_ptr->Event.MouseEvent, &inev);
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
751 if (add)
8b5313e6b324 (w32_console_read_socket): Remove bufp_r and
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
752 kbd_buffer_store_event_hold (&inev, hold_quit);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 break;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 case WINDOW_BUFFER_SIZE_EVENT:
24937
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
756 if (w32_use_full_screen_buffer)
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
757 resize_event (&queue_ptr->Event.WindowBufferSizeEvent);
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 break;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
759
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 case MENU_EVENT:
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 case FOCUS_EVENT:
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 /* Internal event types, ignored. */
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 break;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45804
diff changeset
765
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 queue_ptr++;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 nev--;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 }
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 if (ret > 0 || expected == 0)
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 break;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 }
24756
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
773
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
774 /* We don't get told about changes in the window size (only the buffer
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
775 size, which we no longer care about), so we have to check it
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
776 periodically. */
24937
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
777 if (!w32_use_full_screen_buffer)
42f29912dc46 (w32_console_read_socket): Use new variable w32_use_full_screen_buffer.
Andrew Innes <andrewi@gnu.org>
parents: 24756
diff changeset
778 maybe_generate_resize_event ();
24756
4582b492a651 (maybe_generate_resize_event): Detect changes in the
Andrew Innes <andrewi@gnu.org>
parents: 23804
diff changeset
779
9907
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 UNBLOCK_INPUT;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 return ret;
2e5a14f7c44e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
783