branch: externals/exwm
commit dc5cc1dead101f7a06e00513fd2a1821ab1f3384
Author: Curiosidad-Racional <[email protected]>
Commit: GitHub <[email protected]>
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
