From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 16 Jul 2020 16:51:19 +0000 (+0300)
Subject: Fix interrupt-process on MS-Windows
X-Git-Tag: emacs-27.1-rc1~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e325d2638c;p=emacs.git

Fix interrupt-process on MS-Windows

* src/w32proc.c (sys_kill): Test the status of the left Ctrl key
for the purpose of restoring it after simulating Ctrl-C.  This
avoids leaving the left Ctrl key status in depressed state when
the user actually pressed the right Ctrl key.  (Bug#42350)
---

diff --git a/src/w32proc.c b/src/w32proc.c
index de337269050..62d7377130f 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -2790,11 +2790,11 @@ 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;
+		  /* Record the state of the left 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 that Ctrl depressed when we are done.  */
+		  short ctrl_state = GetKeyState (VK_LCONTROL) & 0x8000;
 
                   /* Generate keystrokes as if user had typed Ctrl-Break or
                      Ctrl-C.  */