[elpa] externals/exwm dc5cc1d 1/4: Fixed fail update when current buffer differs from window

[Chris Feng]

branch: externals/exwm
commit dc5cc1dead101f7a06e00513fd2a1821ab1f3384
Author: Curiosidad-Racional <address@hidden>
Commit: GitHub <address@hidden>

    Fixed fail update when current buffer differs from window
    
    Local variable `exwm--input-mode' from different buffer when current buffer 
don't contains #id window.
    
    `with-current-buffer' changes buffer after `cl-case' with local 
`exwm--input-mode'
---
 exwm-input.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/exwm-input.el b/exwm-input.el
index 82ce82a..2368331 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -749,20 +749,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