# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1150429754 0
# Node ID 140ffd4934a0b98b7c6390f85e79199b4ec4ff65
# Parent  3b8dc44ff25f2eba0ad39f24519647887d6b89ee
[gaim-migrate @ 16269]
Fix some spacing bugs and a stupid copy-and-paste error

committer: Tailor Script <tailor@pidgin.im>

diff -r 3b8dc44ff25f -r 140ffd4934a0 plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Fri Jun 16 03:42:34 2006 +0000
+++ b/plugins/tcl/tcl.c	Fri Jun 16 03:49:14 2006 +0000
@@ -135,8 +135,8 @@
 	Tcl_CreateObjCommand(interp, "::gaim::presence", tcl_cmd_presence, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::send_im", tcl_cmd_send_im, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::signal", tcl_cmd_signal, (ClientData)NULL, NULL);
-	Tcl_CreateObjCommand(interp, "::gaim::status", tcl_cmd_status_type, (ClientData)NULL, NULL);
-	Tcl_CreateObjCommand(interp, "::gaim::status_attr", tcl_cmd_status_type, (ClientData)NULL, NULL);
+	Tcl_CreateObjCommand(interp, "::gaim::status", tcl_cmd_status, (ClientData)NULL, NULL);
+	Tcl_CreateObjCommand(interp, "::gaim::status_attr", tcl_cmd_status_attr, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::status_type", tcl_cmd_status_type, (ClientData)NULL, NULL);
 	Tcl_CreateObjCommand(interp, "::gaim::unload", tcl_cmd_unload, (ClientData)NULL, NULL);
 
diff -r 3b8dc44ff25f -r 140ffd4934a0 plugins/tcl/tcl_ref.c
--- a/plugins/tcl/tcl_ref.c	Fri Jun 16 03:42:34 2006 +0000
+++ b/plugins/tcl/tcl_ref.c	Fri Jun 16 03:49:14 2006 +0000
@@ -60,7 +60,7 @@
 		if (interp) {
 			Tcl_Obj *error = Tcl_NewStringObj("Bad Gaim reference type: expected ", -1);
 			Tcl_AppendToObj(error, gaim_stringref_value(type), -1);
-			Tcl_AppendToObj(error, "but got ", -1);
+			Tcl_AppendToObj(error, " but got ", -1);
 			Tcl_AppendToObj(error, gaim_stringref_value(OBJ_REF_TYPE(obj)), -1);
 			Tcl_SetObjResult(interp, error);
 		}