From 7a5bb1156d07848e465f55fd31f8ec755b52aa01 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Mon, 10 Apr 2017 00:30:43 +0800 Subject: [PATCH] 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. --- exwm-manage.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/exwm-manage.el b/exwm-manage.el index c47d5c1..84dcf0a 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."