# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1074207739 0
# Node ID 761caeb8583ed58ba0841dbde7eff3ae8137a667
# Parent  2a9e8ba61ec77556d8208f13980ec0f2781d2975
[gaim-migrate @ 8820]
Tim didn't do this, and I didn't mean to.

committer: Tailor Script <tailor@pidgin.im>

diff -r 2a9e8ba61ec7 -r 761caeb8583e plugins/tcl/tcl_glib.c
--- a/plugins/tcl/tcl_glib.c	Thu Jan 15 22:55:09 2004 +0000
+++ b/plugins/tcl/tcl_glib.c	Thu Jan 15 23:02:19 2004 +0000
@@ -74,7 +74,6 @@
 
 ClientData Tcl_InitNotifier()
 {
-	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 	return NULL;
 }
 
@@ -90,6 +89,7 @@
 	notifier.waitForEventProc = tcl_wait_for_event;
 
 	Tcl_SetNotifier(&notifier);
+	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 
 	tcl_timer_pending = FALSE;
 	tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal);