about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2017-04-09T16·30+0800
committerChris Feng <chris.w.feng@gmail.com>2017-04-09T16·30+0800
commit7a5bb1156d07848e465f55fd31f8ec755b52aa01 (patch)
tree528c42a4be8773e4becdd2558eb73a341426970f
parent52dc2616240d43b8c15e10edfdd34b1e0039a10f (diff)
Only add graphic frames to `exwm-manage--frame-outer-id-list'
* exwm-manage.el (exwm-manage--add-frame, exwm-manage--remove-frame):
Add checks for graphic frames.
-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."