Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-24 03:47:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Only add graphic frames to `exwm-manage--frame-outer-id-list'

Browse source 
* exwm-manage.el (exwm-manage--add-frame, exwm-manage--remove-frame):
Add checks for graphic frames.
This commit is contained in:
Chris Feng 2017-04-10 00:30:43 +08:00
parent 52dc261624
commit 7a5bb1156d
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-manage.el
View file

@ -566,14 +566,16 @@ Would you like to kill it? "
(defun exwm-manage--add-frame (frame) (defun exwm-manage--add-frame (frame)
"Run in `after-make-frame-functions'." "Run in `after-make-frame-functions'."
(when (display-graphic-p frame)
(push (string-to-number (frame-parameter frame 'outer-window-id)) (push (string-to-number (frame-parameter frame 'outer-window-id))
exwm-manage--frame-outer-id-list)) exwm-manage--frame-outer-id-list)))
(defun exwm-manage--remove-frame (frame) (defun exwm-manage--remove-frame (frame)
"Run in `delete-frame-functions'." "Run in `delete-frame-functions'."
(when (display-graphic-p frame)
(setq exwm-manage--frame-outer-id-list (setq exwm-manage--frame-outer-id-list
(delq (string-to-number (frame-parameter frame 'outer-window-id)) (delq (string-to-number (frame-parameter frame 'outer-window-id))
exwm-manage--frame-outer-id-list))) exwm-manage--frame-outer-id-list))))
(defun exwm-manage--on-ConfigureRequest (data _synthetic) (defun exwm-manage--on-ConfigureRequest (data _synthetic)
"Handle ConfigureRequest event." "Handle ConfigureRequest event."