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

26
exwm-input.el
View file

@ -750,20 +750,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