; Follows up

This commit is contained in:
Chris Feng 2019-03-24 00:00:00 +00:00
parent 81e52263a7
commit 73b4d6f966
3 changed files with 69 additions and 69 deletions

View file

@ -720,15 +720,15 @@ button event."
(line-mode
(setq mode "line"
help-echo "mouse-1: Switch to char-mode"
cmd `(lambda ()
(interactive)
(exwm-input-release-keyboard ,id))))
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)))))
cmd (lambda ()
(interactive)
(exwm-input-grab-keyboard id)))))
(with-current-buffer (exwm--id->buffer id)
(setq mode-line-process
`(": "