diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-07-29T09·11+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-07-29T09·11+0800 |
| commit | f52848595d44064bb092d3028a7f9afe1107faf1 (patch) | |
| tree | 884fbae231088bc7944ea012b30f4747988c58ab | |
| parent | 719b825bc4e5471ca2a51f1f9f3b1149a1532c24 (diff) | |
; * exwm-floating.el (exwm-floating--unset-floating): Reposition an X
; window when it changes from floating to tiling layout.
| -rw-r--r-- | exwm-floating.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/exwm-floating.el b/exwm-floating.el index 7931c661c732..6702e38d6131 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -277,6 +277,14 @@ (make-instance 'xcb:ChangeWindowAttributes :window id :value-mask xcb:CW:EventMask :event-mask exwm--client-event-mask)) + ;; The X window might have been moved due to the floating border. + (xcb:+request exwm--connection + (make-instance 'xcb:ConfigureWindow + :window id + :value-mask (logior xcb:ConfigWindow:X + xcb:ConfigWindow:Y) + :x 0 + :y 0)) ;; Reparent the floating frame back to the root window. (let ((frame-id (frame-parameter exwm--floating-frame 'exwm-outer-id)) (frame-container (frame-parameter exwm--floating-frame |