1 files changed, 5 insertions, 0 deletions
diff --git a/exwm-core.el b/exwm-core.el
index 5bcf943858b6..85bbe588431a 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -180,6 +180,11 @@ least SECS seconds later."
                         ,function
                         ,@args))
 
+(defsubst exwm--terminal-p (&optional frame)
+  "Return t when FRAME's terminal is EXWM's terminal.
+If FRAME is null, use selected frame."
+  (eq exwm--terminal (frame-terminal frame)))
+
 (defun exwm--get-client-event-mask ()
   "Return event mask set on all managed windows."
   (logior xcb:EventMask:StructureNotify