From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 5 Sep 2017 17:33:40 +0000 (+0300)
Subject: Avoid losing Ctrl-C keystrokes in compilation mode on MS-Windows
X-Git-Tag: emacs-26.0.90~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25a49f64963d1c2a392ebaa66676042b55e0e3c1;p=emacs.git

Avoid losing Ctrl-C keystrokes in compilation mode on MS-Windows

* src/w32proc.c (sys_kill): Preserve the up/down state of the
Ctrl key across the simulated Ctrl-C keystroke.  (Bug#28348)
---

diff --git a/src/w32proc.c b/src/w32proc.c
index 71bd28d3c24..085995df58a 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -2638,6 +2638,12 @@ sys_kill (pid_t pid, int sig)
               /* Set the foreground window to the child.  */
               if (SetForegroundWindow (cp->hwnd))
                 {
+		  /* Record the state of the Ctrl key: the user could
+		     have it depressed while we are simulating Ctrl-C,
+		     in which case we will have to leave the state of
+		     Ctrl depressed when we are done.  */
+		  short ctrl_state = GetKeyState (VK_CONTROL) & 0x8000;
+
                   /* Generate keystrokes as if user had typed Ctrl-Break or
                      Ctrl-C.  */
                   keybd_event (VK_CONTROL, control_scan_code, 0, 0);
@@ -2654,6 +2660,9 @@ sys_kill (pid_t pid, int sig)
                   Sleep (100);
 
                   SetForegroundWindow (foreground_window);
+		  /* If needed, restore the state of Ctrl.  */
+		  if (ctrl_state != 0)
+		    keybd_event (VK_CONTROL, control_scan_code, 0, 0);
                 }
               /* Detach from the foreground and child threads now that
                  the foreground switching is over.  */