summaryrefslogtreecommitdiff
path: root/src/perl/ui
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-11-25 15:01:39 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-11-25 15:01:39 +0000
commit66b0ffe057d1b9da59959cd6c01825516209d9f9 (patch)
tree6a9a7360c6900830bec6987c1aba9803f711537f /src/perl/ui
parentea904f8dc94f2efc7aa0bf532400502a13dcb2c1 (diff)
downloadirssi-66b0ffe057d1b9da59959cd6c01825516209d9f9.zip
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
Diffstat (limited to 'src/perl/ui')
-rw-r--r--src/perl/ui/Window.xs5
1 files changed, 5 insertions, 0 deletions
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)