From 24ea87bd27463e0aa42e644b841e5d4bd5b524c0 Mon Sep 17 00:00:00 2001 From: Ailin Nemui Date: Thu, 5 Jun 2014 15:01:15 +0200 Subject: [PATCH] fix implementation of format_get_text script api --- src/perl/ui/Formats.xs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs index 7ff31aac..ba28f247 100644 --- a/src/perl/ui/Formats.xs +++ b/src/perl/ui/Formats.xs @@ -73,17 +73,18 @@ MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::Window #******************************* void -format_get_text(window, module, server, target, formatnum, ...) +format_get_text(window, module, server, target, format, ...) Irssi::UI::Window window char *module Irssi::Server server char *target - int formatnum + char *format PREINIT: TEXT_DEST_REC dest; THEME_REC *theme; char **charargs; char *ret; + int formatnum; int n; PPCODE: charargs = g_new0(char *, items-5+1); @@ -93,6 +94,7 @@ PPCODE: format_create_dest(&dest, server, target, 0, window); theme = window_get_theme(dest.window); + formatnum = format_find_tag(module, format); ret = format_get_text_theme_charargs(theme, module, &dest, formatnum, charargs); g_free(charargs);