Removed unfinished code that was not supposed to go to cvs..

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1913 dbcabf3a-b0e7-0310-adc4-f8d773084564

2 files changed, 0 insertions, 61 deletions

diff --git a/src/perl/textui/TextBufferView.xs b/src/perl/textui/TextBufferView.xs
index 37efc856..27ddfa7f 100644
--- a/src/perl/textui/TextBufferView.xs
+++ b/src/perl/textui/TextBufferView.xs
@@ -1,56 +1,5 @@
 #include "module.h"
 
-static char *default_indent_func;
-
-static int perl_indent_func(TEXT_BUFFER_VIEW_REC *view,
-			    LINE_REC *line, int ypos)
-{
-	dSP;
-	int retcount, ret;
-
-	ENTER;
-	SAVETMPS;
-
-	PUSHMARK(SP);
-	XPUSHs(sv_2mortal(plain_bless(view, "Irssi::TextUI::TextBufferView")));
-	XPUSHs(sv_2mortal(plain_bless(line, "Irssi::TextUI::Line")));
-	XPUSHs(sv_2mortal(newSViv(ypos)));
-	PUTBACK;
-
-	retcount = perl_call_pv(default_indent_func, G_EVAL|G_DISCARD);
-	SPAGAIN;
-
-        ret = 0;
-	if (SvTRUE(ERRSV)) {
-		STRLEN n_a;
-                char *package;
-
-                package = perl_function_get_package(default_indent_func);
-		signal_emit("script error", 2,
-			    perl_script_find_package(package),
-			    SvPV(ERRSV, n_a));
-                g_free(package);
-	} else if (retcount > 0) {
-		ret = POPi;
-	}
-
-	PUTBACK;
-	FREETMPS;
-	LEAVE;
-
-        return ret;
-}
-
-void perl_textbuffer_view_init(void)
-{
-        default_indent_func = NULL;
-}
-
-void perl_textbuffer_view_deinit(void)
-{
-        g_free_not_null(default_indent_func);
-}
-
 MODULE = Irssi::TextUI::TextBufferView  PACKAGE = Irssi::TextUI::TextBuffer  PREFIX = textbuffer_
 PROTOTYPES: ENABLE
 
@@ -61,14 +10,6 @@ textbuffer_view_create(buffer, width, height, scroll)
 	int height
 	int scroll
 
-void
-gui_windows_set_default_indent_func(func)
-        char *func
-CODE:
-        g_free_not_null(default_indent_func);
-        default_indent_func = g_strdup(func);
-        gui_windows_set_default_indent_func(perl_indent_func);
-
 #*******************************
 MODULE = Irssi::TextUI::TextBufferView  PACKAGE = Irssi::TextUI::TextBufferView  PREFIX = textbuffer_view_
 #*******************************
diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs
index 9ebd2c6b..c92da84a 100644
--- a/src/perl/textui/TextUI.xs
+++ b/src/perl/textui/TextUI.xs
@@ -96,13 +96,11 @@ CODE:
 
         irssi_add_plains(textui_plains);
         perl_statusbar_init();
-        perl_textbuffer_view_init();
 
 void
 deinit()
 CODE:
         perl_statusbar_deinit();
-        perl_textbuffer_view_deinit();
 
 MODULE = Irssi::TextUI PACKAGE = Irssi