check if raised window is nil before using it to set window priority

stumpwm · Mar 16, 2021 · b7c636c · b7c636c
1 parent 7c5a7a0
commit b7c636c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/tile-window.lisp b/tile-window.lisp
@@ -120,9 +120,10 @@ than the root window's width and height."
                y (frame-y head)
                width (frame-width head)
                height (frame-height head)
-               (xlib:window-priority (window-parent win)
-                                     (window-parent (group-raised-window win-group))) :above
-               (group-raised-window (window-group win)) win))
+               (group-raised-window (window-group win)) win)
+         (when (group-raised-window win-group)
+           (setf (xlib:window-priority (window-parent win)
+                                       (window-parent (group-raised-window win-group))) :above)))
        (return-from geometry-hints (values x y 0 0 width height 0 t)))
       ;; Adjust the defaults if the window is a transient_for window.
       ((find (window-type win) '(:transient :dialog))