emacs-elpa-diffs
[Top][All Lists]
Advanced

[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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]