summaryrefslogtreecommitdiff
path: root/src/perl/ui
diff options
context:
space:
mode:
Diffstat (limited to 'src/perl/ui')
-rw-r--r--src/perl/ui/Window.xs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs
index ac65480e..cadff1ab 100644
--- a/src/perl/ui/Window.xs
+++ b/src/perl/ui/Window.xs
@@ -158,7 +158,8 @@ CODE:
old = active_win;
active_win = window;
perl_command(cmd, window->active_server, window->active);
- active_win = old;
+ if (g_slist_find(windows, old) != NULL)
+ active_win = old;
void
window_item_add(window, item, automatic)