diff --git a/src/windows.lisp b/src/windows.lisp
index 4ed0c88..c9f47dc 100644
--- a/src/windows.lisp
+++ b/src/windows.lisp
@@ -319,7 +319,8 @@ height, position and so on)"
 
 (defun draw-all ()
   (do-stack-element (window *window-stack*)
-    (draw window)))
+    (when (win-visible-p window)
+      (draw window))))
 
 (defun refresh-config-all ()
   (refresh-config *main-window*)