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 manage windows mapped as the direct children of root window (close #38)

Browse source 
Sometimes Emacs create child windows of virtual roots. This commit ensures EXWM
will not manage them.
This commit is contained in:
Chris Feng 2015-08-24 19:01:14 +08:00
parent 5882015eb5
commit 5210e13e7c
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
exwm-manage.el
View file

@ -278,7 +278,7 @@ corresponding buffer.")
value-mask) value-mask)
obj obj
(exwm--log "ConfigureRequest from #x%x (#x%x) @%dx%d%+d%+d, border: %d" (exwm--log "ConfigureRequest from #x%x (#x%x) @%dx%d%+d%+d, border: %d"
value-mask window width height x y border-width) window value-mask width height x y border-width)
(if (setq buffer (exwm--id->buffer window)) (if (setq buffer (exwm--id->buffer window))
;; Send client message for managed windows ;; Send client message for managed windows
(with-current-buffer buffer (with-current-buffer buffer
@ -320,8 +320,13 @@ corresponding buffer.")
"Handle MapRequest event." "Handle MapRequest event."
(let ((obj (make-instance 'xcb:MapRequest))) (let ((obj (make-instance 'xcb:MapRequest)))
(xcb:unmarshal obj data) (xcb:unmarshal obj data)
(exwm--log "MapRequest from #x%x" (slot-value obj 'window)) (with-slots (parent window) obj
(exwm-manage--manage-window (slot-value obj 'window)))) (if (/= exwm--root parent)
(progn (xcb:+request exwm--connection
(make-instance xcb:MapWindow :window window))
(xcb:flush exwm--connection))
(exwm--log "MapRequest from #x%x" window)
(exwm-manage--manage-window window)))))
(defun exwm-manage--on-UnmapNotify (data synthetic) (defun exwm-manage--on-UnmapNotify (data synthetic)
"Handle UnmapNotify event." "Handle UnmapNotify event."