Mercurial > pidgin.yaz
comparison libpurple/plugins/tcl/tcl_cmds.c @ 22112:5b6d6ea542b8
Remove a variable that isn't used anywhere, if it was supposed to do something
feel free to add it back and make it do that.
Also, fix a compile error. Comparing a string literal and a const char * with
== likely doesn't do what was intended here.
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 15 Jan 2008 04:58:42 +0000 |
parents | 3287445c05a8 |
children | 3afd04d5f9d6 |
comparison
equal
deleted
inserted
replaced
22111:603d5325af4c | 22112:5b6d6ea542b8 |
---|---|
1065 cur = purple_prefs_get_string_list(Tcl_GetString(objv[2])); | 1065 cur = purple_prefs_get_string_list(Tcl_GetString(objv[2])); |
1066 list = Tcl_NewListObj(0, NULL); | 1066 list = Tcl_NewListObj(0, NULL); |
1067 while (cur != NULL) { | 1067 while (cur != NULL) { |
1068 elem = Tcl_NewStringObj((char *)cur->data, -1); | 1068 elem = Tcl_NewStringObj((char *)cur->data, -1); |
1069 Tcl_ListObjAppendElement(interp, list, elem); | 1069 Tcl_ListObjAppendElement(interp, list, elem); |
1070 cur = g_list_next(cur); | 1070 g_free(cur->data); |
1071 cur = g_list_delete_link(cur, cur); | |
1071 } | 1072 } |
1072 Tcl_SetObjResult(interp, list); | 1073 Tcl_SetObjResult(interp, list); |
1073 break; | 1074 break; |
1074 default: | 1075 default: |
1075 purple_debug(PURPLE_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype); | 1076 purple_debug(PURPLE_DEBUG_ERROR, "tcl", "tcl does not know about pref type %d\n", preftype); |