From df8de921132520cccf4236906bcd37aec83fa0ce Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 20 May 2018 16:14:01 +0800 Subject: Provide a fallback value for X window geometry * exwm-manage.el (exwm-manage--update-geometry): Ditto. --- exwm-manage.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'exwm-manage.el') diff --git a/exwm-manage.el b/exwm-manage.el index f44071020d2d..ba5bc83b00fa 100644 --- a/exwm-manage.el +++ b/exwm-manage.el @@ -123,8 +123,14 @@ You can still make the X windows floating afterwards." (unless (and exwm--geometry (not force)) (let ((reply (xcb:+request-unchecked+reply exwm--connection (make-instance 'xcb:GetGeometry :drawable id)))) - (when reply ;nil when destroyed - (setq exwm--geometry reply)))))) + (setq exwm--geometry + (or reply + ;; Provide a reasonable fallback value. + (make-instance 'xcb:RECTANGLE + :x 0 + :y 0 + :width (/ (x-display-pixel-width) 2) + :height (/ (x-display-pixel-height) 2)))))))) (defun exwm-manage--update-ewmh-state (id) "Update _NET_WM_STATE." -- cgit 1.4.1