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

Merge branch 'Curiosidad-Racional/patch-1' into externals/exwm

Browse source
This commit is contained in:
Chris Feng 2020-03-29 00:00:00 +00:00
commit 95d6aa96cf
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

@ -750,6 +750,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"
@ -763,7 +764,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