Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57: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

2
exwm-input.el
View file

@ -749,6 +749,7 @@ 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)
(with-current-buffer (exwm--id->buffer id)
(cl-case exwm--input-mode (cl-case exwm--input-mode
(line-mode (line-mode
(setq mode "line" (setq mode "line"
@ -762,7 +763,6 @@ button event."
cmd (lambda () cmd (lambda ()
(interactive) (interactive)
(exwm-input-grab-keyboard id))))) (exwm-input-grab-keyboard id)))))
(with-current-buffer (exwm--id->buffer id)
(setq mode-line-process (setq mode-line-process
`(": " `(": "
(:propertize ,mode (:propertize ,mode