mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases Activity

(win32_kdb_patch_key): Initialize isdead.

Browse Source 
(key_event) [HAVE_NTGUI]: Use Windows key code.
This commit is contained in:
Geoff Voelker 1996-05-03 18:35:06 +00:00
parent 8dfdd41fa8
commit 407c17456a
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/w32inevt.c
View File

@ -92,7 +92,7 @@ get_frame (void)
/* Translate console modifiers to emacs modifiers.
German keyboard support (Kai Morgan Zeise 2/18/95). */
int
int
win32_kbd_mods_to_emacs (DWORD mods)
{
int retval = 0;
@ -128,7 +128,7 @@ win32_kbd_patch_key (KEY_EVENT_RECORD *event)
unsigned int mods = event->dwControlKeyState;
BYTE keystate[256];
static BYTE ansi_code[4];
static int isdead;
static int isdead = 0;
if (isdead == 2)
{
@ -159,7 +159,7 @@ win32_kbd_patch_key (KEY_EVENT_RECORD *event)
event->uChar.AsciiChar = ansi_code[0];
return isdead;
}
/* Map virtual key codes into:
-1 - Ignore this key
-2 - ASCII char
@ -292,7 +292,7 @@ key_event (KEY_EVENT_RECORD *event, struct input_event *emacs_ev)
static BOOL map_virt_key_init_done;
/* Skip key-up events. */
if (event->bKeyDown == FALSE)
if (!event->bKeyDown)
return 0;
if (event->wVirtualKeyCode > 0xff)
@ -318,7 +318,7 @@ key_event (KEY_EVENT_RECORD *event, struct input_event *emacs_ev)
the queue. If they're backing up then we don't generally want
to honor them later since that leads to significant slop in
cursor motion when the system is under heavy load. */
map = map_virt_key[event->wVirtualKeyCode];
if (map == -1)
{
@ -354,14 +354,17 @@ key_event (KEY_EVENT_RECORD *event, struct input_event *emacs_ev)
{
/* non-ASCII */
emacs_ev->kind = non_ascii_keystroke;
#ifdef HAVE_NTGUI
/* use Windows keysym map */
XSETINT (emacs_ev->code, event->wVirtualKeyCode);
#else
/*
* make_lispy_event () now requires non-ascii codes to have
* the full X keysym values (2nd byte is 0xff). add it on.
*/
#ifndef HAVE_NTGUI
map |= 0xff00;
#endif
XSETINT (emacs_ev->code, map);
#endif /* HAVE_NTGUI */
}
/* for Mule 2.2 (Based on Emacs 19.28) */
#ifdef MULE
@ -388,8 +391,8 @@ win32_mouse_position (FRAME_PTR *f,
unsigned long *time)
{
BLOCK_INPUT;
#ifndef MULE
#ifndef MULE
insist = insist;
#endif