From 7e531cec7a80a3bc6cecb844d66ae5127f7e7a94 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Wed, 28 Jun 2000 17:15:37 +0000 Subject: Automatic command completion and a few other fixes. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@387 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/xs/Irssi-core.xs | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'src/perl') 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); -- cgit v1.2.3