about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-04-03T04·24+0800
committerChris Feng <chris.w.feng@gmail.com>2016-04-03T04·24+0800
commitc7c233bc356fc6a846a09aa5fb13710e6706fce1 (patch)
tree5056a090f0a75c12f7e27d40631e4d7154b04133
parentfa204e136718e106a87414dd145d16748d5b7262 (diff)
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.
-rw-r--r--exwm-layout.el6
-rw-r--r--exwm.el2
2 files changed, 4 insertions, 4 deletions
diff --git a/exwm-layout.el b/exwm-layout.el
index c392ff972446..9cbdd2b83d30 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
diff --git a/exwm.el b/exwm.el
index ac10247f523f..f8a3fc727200 100644
--- a/exwm.el
+++ b/exwm.el
@@ -80,7 +80,7 @@
       (when exwm--fullscreen (exwm-layout-unset-fullscreen))
       ;; Force refresh
       (exwm-layout--refresh)
-      (exwm-input-grab-keyboard))))
+      (call-interactively #'exwm-input-grab-keyboard))))
 
 (defun exwm--update-window-type (id &optional force)
   "Update _NET_WM_WINDOW_TYPE."