diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2020-03-29T00·00+0000 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2020-03-29T00·00+0000 |
| commit | 95d6aa96cfaac1a3b474ca16bac70945ad909b01 (patch) | |
| tree | d04ed2de42960e218de66c57750a0e0ddc47630a /exwm-input.el | |
| parent | 3dbf1b1bed96d9ac3ee2718134ded619f46951bb (diff) | |
| parent | dc5cc1dead101f7a06e00513fd2a1821ab1f3384 (diff) | |
Merge branch 'Curiosidad-Racional/patch-1' into externals/exwm
Diffstat (limited to 'exwm-input.el')
| -rw-r--r-- | exwm-input.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/exwm-input.el b/exwm-input.el index a891710da263..9ba3502a4da0 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -750,20 +750,20 @@ button event." "Update the propertized `mode-line-process' for window ID." (exwm--log "#x%x" id) (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) + (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 `(": " (:propertize ,mode |