[elpa] externals/exwm c7c233b: Some commands should be called interactively

[Chris Feng]

branch: externals/exwm
commit c7c233bc356fc6a846a09aa5fb13710e6706fce1
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    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 +++---
 exwm.el        |    2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/exwm-layout.el b/exwm-layout.el
index c392ff9..9cbdd2b 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 ac10247..f8a3fc7 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."