From 66b0ffe057d1b9da59959cd6c01825516209d9f9 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 25 Nov 2001 15:01:39 +0000
Subject: [PATCH] Irssi::Window::command() should make the specified window
 active_win temporarily.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2138 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/ui/Window.xs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs
index debc767c..b40cd464 100644
--- a/src/perl/ui/Window.xs
+++ b/src/perl/ui/Window.xs
@@ -165,8 +165,13 @@ void
 command(window, cmd)
 	Irssi::UI::Window window
 	char *cmd
+PREINIT:
+	WINDOW_REC *old;
 CODE:
+	old = active_win;
+	active_win = window;
 	perl_command(cmd, window->active_server, window->active);
+        active_win = old;
 
 void
 window_item_add(window, item, automatic)