Ticket #1642: control-j-fix.txt

File control-j-fix.txt, 481 bytes (added by david3x3x3, 8 years ago)
Line 
1diff --git a/src/main-win.c b/src/main-win.c
2index b484b16..3c5cebd
3--- a/src/main-win.c
4+++ b/src/main-win.c
5@@ -4357,7 +4357,8 @@ static LRESULT FAR PASCAL AngbandWndProc(HWND hWnd, UINT uMsg,
6                case WM_CHAR:
7                {
8                        // really vicious hack; [Control]Return -> 10 (Return -> 13)
9-                       if (wParam == 10) {
10+                       if (wParam == 10 &&
11+                           MapVirtualKey((lParam>>16)&0xFF, 1) == 13) {
12                                Term_keypress(13, KC_MOD_CONTROL);
13                        } else {
14                                Term_keypress(wParam, 0);