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."