diff options
| -rw-r--r-- | src/perl/ui/Window.xs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs index f8ef0315..ab52c910 100644 --- a/src/perl/ui/Window.xs +++ b/src/perl/ui/Window.xs @@ -160,7 +160,8 @@ CODE: old = active_win; active_win = window; perl_command(cmd, window->active_server, window->active); - if (g_slist_find(windows, old) != NULL) + if (active_win == window && + g_slist_find(windows, old) != NULL) active_win = old; void |