diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-06-28 17:15:37 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-06-28 17:15:37 +0000 |
| commit | 7e531cec7a80a3bc6cecb844d66ae5127f7e7a94 (patch) | |
| tree | 2e2452b4fbec35a8a34e0b7364544c43d71bcd83 /src/perl | |
| parent | dd7ce4af23a0bb68a8c735c7e9a4c0d9c50ae08b (diff) | |
| download | irssi-7e531cec7a80a3bc6cecb844d66ae5127f7e7a94.zip | |
Automatic command completion and a few other fixes.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@387 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/xs/Irssi-core.xs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/perl/xs/Irssi-core.xs b/src/perl/xs/Irssi-core.xs index 324637ae..d8a87c50 100644 --- a/src/perl/xs/Irssi-core.xs +++ b/src/perl/xs/Irssi-core.xs @@ -90,16 +90,8 @@ CODE: char *signal; GSList *tmp; - /* Don't add the command twice */ if (*category == '\0') category = "Perl scripts' commands"; - for (tmp = commands; tmp != NULL; tmp = tmp->next) { - COMMAND_REC *rec = tmp->data; - - if (g_strcasecmp(rec->cmd, cmd) == 0 && - g_strcasecmp(rec->category, category) == 0) - break; - } - if (tmp == NULL) command_bind(cmd, category, NULL); + command_bind(cmd, category, NULL); signal = g_strconcat("command ", cmd, NULL); perl_signal_add(signal, func); g_free(signal); |