Mercurial > pidgin.yaz
changeset 24284:3324f099a212
Fix my Tcl fix.
| author | Richard Laager <rlaager@wiktel.com> |
|---|---|
| date | Thu, 30 Oct 2008 19:57:47 +0000 |
| parents | a41e0d8ddae4 |
| children | 716048e4fbbd |
| files | libpurple/plugins/tcl/tcl_cmds.c |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/libpurple/plugins/tcl/tcl_cmds.c Thu Oct 30 19:56:54 2008 +0000 +++ b/libpurple/plugins/tcl/tcl_cmds.c Thu Oct 30 19:57:47 2008 +0000 @@ -428,7 +428,6 @@ if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) return error; - type = purple_blist_node_get_type(node); switch (cmd) { case CMD_BUDDY_ALIAS: if (objc != 3) { @@ -439,6 +438,7 @@ return error; if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL) return TCL_ERROR; + type = purple_blist_node_get_type(node); if (type == PURPLE_BLIST_CHAT_NODE) Tcl_SetObjResult(interp, Tcl_NewStringObj(purple_chat_get_name((PurpleChat *)node), -1));