about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--exwm-manage.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/exwm-manage.el b/exwm-manage.el
index c47d5c1c7f5e..84dcf0a3a3bd 100644
--- a/exwm-manage.el
+++ b/exwm-manage.el
@@ -566,14 +566,16 @@ Would you like to kill it? "
 
 (defun exwm-manage--add-frame (frame)
   "Run in `after-make-frame-functions'."
-  (push (string-to-number (frame-parameter frame 'outer-window-id))
-        exwm-manage--frame-outer-id-list))
+  (when (display-graphic-p frame)
+    (push (string-to-number (frame-parameter frame 'outer-window-id))
+          exwm-manage--frame-outer-id-list)))
 
 (defun exwm-manage--remove-frame (frame)
   "Run in `delete-frame-functions'."
-  (setq exwm-manage--frame-outer-id-list
-        (delq (string-to-number (frame-parameter frame 'outer-window-id))
-              exwm-manage--frame-outer-id-list)))
+  (when (display-graphic-p frame)
+    (setq exwm-manage--frame-outer-id-list
+          (delq (string-to-number (frame-parameter frame 'outer-window-id))
+                exwm-manage--frame-outer-id-list))))
 
 (defun exwm-manage--on-ConfigureRequest (data _synthetic)
   "Handle ConfigureRequest event."