diff options
Diffstat (limited to 'exwm-floating.el')
| -rw-r--r-- | exwm-floating.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/exwm-floating.el b/exwm-floating.el index bc6b1a246a54..8c2a8f4998d9 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -381,9 +381,13 @@ "Perform move/resize." (when exwm-floating--moveresize-calculate (let ((obj (make-instance 'xcb:MotionNotify)) - (frame-x (or (frame-parameter exwm-workspace--current 'exwm-x) 0)) - (frame-y (or (frame-parameter exwm-workspace--current 'exwm-y) 0)) + (geometry (frame-parameter exwm-workspace--current 'exwm-geometry)) + (frame-x 0) + (frame-y 0) result) + (when geometry + (setq frame-x (slot-value geometry 'x) + frame-y (slot-value geometry 'y))) (xcb:unmarshal obj data) (setq result (funcall exwm-floating--moveresize-calculate (slot-value obj 'root-x) (slot-value obj 'root-y))) |