Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 21:17:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Fixed fail update when current buffer differs from window

Browse source 
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'
This commit is contained in:
Curiosidad-Racional 2020-03-21 13:51:09 +01:00 committed by GitHub
parent ed0f63327d
commit dc5cc1dead
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
exwm-input.el
View file

@ -749,20 +749,20 @@ button event."
"Update the propertized `mode-line-process' for window ID." "Update the propertized `mode-line-process' for window ID."
(exwm--log "#x%x" id) (exwm--log "#x%x" id)
(let (help-echo cmd mode) (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) (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 (setq mode-line-process
`(": " `(": "
(:propertize ,mode (:propertize ,mode