Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 21:17: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

12
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'."
(push (string-to-number (frame-parameter frame 'outer-window-id)) (when (display-graphic-p frame)
exwm-manage--frame-outer-id-list)) (push (string-to-number (frame-parameter frame 'outer-window-id))
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'."
(setq exwm-manage--frame-outer-id-list (when (display-graphic-p frame)
(delq (string-to-number (frame-parameter frame 'outer-window-id)) (setq exwm-manage--frame-outer-id-list
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) (defun exwm-manage--on-ConfigureRequest (data _synthetic)
"Handle ConfigureRequest event." "Handle ConfigureRequest event."