[elpa] externals/exwm 95d6aa9 4/4: Merge branch 'Curiosidad-Racional/patch-1' into externals/exwm

[Chris Feng]

branch: externals/exwm
commit 95d6aa96cfaac1a3b474ca16bac70945ad909b01
Merge: 3dbf1b1 dc5cc1d
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Merge branch 'Curiosidad-Racional/patch-1' into externals/exwm
---
 exwm-input.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/exwm-input.el b/exwm-input.el
index a891710..9ba3502 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -750,20 +750,20 @@ button event."
   "Update the propertized `mode-line-process' for window ID."
   (exwm--log "#x%x" id)
   (let (help-echo cmd mode)
-    (cl-case exwm--input-mode
-      (line-mode
-       (setq mode "line"
-             help-echo "mouse-1: Switch to char-mode"
-             cmd (lambda ()
-                   (interactive)
-                   (exwm-input-release-keyboard id))))
-      (char-mode
-       (setq mode "char"
-             help-echo "mouse-1: Switch to line-mode"
-             cmd (lambda ()
-                   (interactive)
-                   (exwm-input-grab-keyboard id)))))
     (with-current-buffer (exwm--id->buffer id)
+      (cl-case exwm--input-mode
+        (line-mode
+         (setq mode "line"
+               help-echo "mouse-1: Switch to char-mode"
+               cmd (lambda ()
+                     (interactive)
+                     (exwm-input-release-keyboard id))))
+        (char-mode
+         (setq mode "char"
+               help-echo "mouse-1: Switch to line-mode"
+               cmd (lambda ()
+                     (interactive)
+                     (exwm-input-grab-keyboard id)))))
       (setq mode-line-process
             `(": "
               (:propertize ,mode