From c7c233bc356fc6a846a09aa5fb13710e6706fce1 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 3 Apr 2016 12:24:50 +0800 Subject: Some commands should be called interactively * exwm-layout.el (exwm-layout-set-fullscreen, exwm-layout-unset-fullscreen) (exwm-layout-show-mode-line): * exwm.el (exwm-reset): Call `exwm-input-grab-keyboard' and `exwm-input-release-keyboard' interactively. --- exwm-layout.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'exwm-layout.el') diff --git a/exwm-layout.el b/exwm-layout.el index c392ff9724..9cbdd2b83d 100644 --- a/exwm-layout.el +++ b/exwm-layout.el @@ -177,7 +177,7 @@ :data (vector xcb:Atom:_NET_WM_STATE_FULLSCREEN))) (xcb:flush exwm--connection) (setq exwm--fullscreen t) - (exwm-input-release-keyboard))) + (call-interactively #'exwm-input-release-keyboard))) ;;;###autoload (defun exwm-layout-unset-fullscreen (&optional id) @@ -210,7 +210,7 @@ (make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data [])) (xcb:flush exwm--connection) (setq exwm--fullscreen nil) - (exwm-input-grab-keyboard))) + (call-interactively #'exwm-input-grab-keyboard))) (defvar exwm-layout--fullscreen-frame-count 0 "Count the fullscreen workspace frames.") @@ -516,7 +516,7 @@ See also `exwm-layout-enlarge-window'." (window-mode-line-height (frame-root-window exwm--floating-frame))) nil t) - (exwm-input-grab-keyboard)) + (call-interactively #'exwm-input-grab-keyboard)) (force-mode-line-update))) ;;;###autoload -- cgit 1.4.1