---
tile-group.lisp | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/tile-group.lisp b/tile-group.lisp
index 27ce0c3..d2f9191 100644
--- a/tile-group.lisp
+++ b/tile-group.lisp
@@ -60,7 +60,7 @@
(pick-preferred-frame window)))
(when *processing-existing-windows*
(setf (frame-window (window-frame window)) window))
- (when raise
+ (when (and frame raise)
(setf (tile-group-current-frame group) frame
(frame-window frame) nil))
(sync-frame-windows group (window-frame window))
--
1.6.3.1
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
