diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2017-04-09T16·30+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2017-04-09T16·30+0800 |
| commit | 7a5bb1156d07848e465f55fd31f8ec755b52aa01 (patch) | |
| tree | 528c42a4be8773e4becdd2558eb73a341426970f /exwm-manage.el | |
| parent | 52dc2616240d43b8c15e10edfdd34b1e0039a10f (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.
Diffstat (limited to 'exwm-manage.el')
| -rw-r--r-- | exwm-manage.el | 12 |
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." |