Change so that the header window is always redrawn when a floating wi…

…ndow exists. This is because if a popup overlaps the header window, a drawing trace will remain.
lem-project · Oct 19, 2024 · f750fd6 · f750fd6
1 parent 1f2f911
commit f750fd6
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/display/base.lisp b/src/display/base.lisp
@@ -41,8 +41,9 @@ Used to prevent recursive `redraw-display` calls.")
                    (window-redraw window force)))
                (redraw-current-window (current-window) force))
              (redraw-header-windows (force)
-               (dolist (window (frame-header-windows (current-frame)))
-                 (window-redraw window force)))
+               (let ((force (or force (not (null (frame-floating-windows (current-frame)))))))
+                 (dolist (window (frame-header-windows (current-frame)))
+                   (window-redraw window force))))
              (redraw-floating-windows ()
                (dolist (window (frame-floating-windows (current-frame)))
                  (window-redraw window (redraw-after-modifying-floating-window (implementation)))))