[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 7a5bb11: Only add graphic frames to `exwm-manage--
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 7a5bb11: Only add graphic frames to `exwm-manage--frame-outer-id-list' |
Date: |
Sun, 9 Apr 2017 12:33:43 -0400 (EDT) |
branch: externals/exwm
commit 7a5bb1156d07848e465f55fd31f8ec755b52aa01
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/exwm 7a5bb11: Only add graphic frames to `exwm-manage--frame-outer-id-list',
Chris Feng <=