From dc5cc1dead101f7a06e00513fd2a1821ab1f3384 Mon Sep 17 00:00:00 2001 From: Curiosidad-Racional Date: Sat, 21 Mar 2020 13:51:09 +0100 Subject: [PATCH] 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