Merge Irssi 0.8.16-rc1

[silc.git] / apps / irssi / src / perl / ui / Window.xs

diff --git a/apps/irssi/src/perl/ui/Window.xs b/apps/irssi/src/perl/ui/Window.xs
index ab52c910913a90f643db63d47b7ef4486922800b..ea3735a6101921d9bdaf69f20025ceee078266cb 100644 (file)
--- a/apps/irssi/src/perl/ui/Window.xs
+++ b/apps/irssi/src/perl/ui/Window.xs
@@ -243,6 +243,17 @@ CODE:
 OUTPUT:
        RETVAL
 
+void
+window_get_history_lines(window)
+       Irssi::UI::Window window
+PREINIT:
+       HISTORY_REC *rec;
+       GList *tmp;
+PPCODE:
+       rec = command_history_current(window);
+       for (tmp = rec->list; tmp != NULL; tmp = tmp->next)
+               XPUSHs(sv_2mortal(new_pv(tmp->data)));
+
 #*******************************
 MODULE = Irssi::UI::Window  PACKAGE = Irssi::Windowitem  PREFIX = window_item_
 #*******************************