Merge pull request #911 from stumpwm/fix-909

Fix raising of fullscreen windows when selected
stumpwm · Aug 1, 2021 · ccb964d · ccb964d
2 parents 271a594 + 90ee101
commit ccb964d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tile-window.lisp b/tile-window.lisp
@@ -118,11 +118,11 @@ than the root window's width and height."
          (setf x (frame-x head)
                y (frame-y head)
                width (frame-width head)
-               height (frame-height head)
-               (group-raised-window (window-group win)) win)
+               height (frame-height head))
          (when (group-raised-window win-group)
            (setf (xlib:window-priority (window-parent win)
-                                       (window-parent (group-raised-window win-group))) :above)))
+                                       (window-parent (group-raised-window win-group))) :above))
+         (setf (group-raised-window win-group) win))
        (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))