From fe8710ac41feb61339cce1a3e44f875c2aaa9d18 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Thu, 4 Jan 2001 09:45:46 +0000 Subject: Unbinding commands didn't work properly git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1058 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Core.xs | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) (limited to 'src/perl/common/Core.xs') diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 7229cd4f..52b3a0b7 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -323,21 +323,12 @@ command_bind(cmd, category, func) char *category char *func CODE: - char *signal; - if (*category == '\0') category = "Perl scripts' commands"; - command_bind(cmd, category, NULL); - signal = g_strconcat("command ", cmd, NULL); - perl_signal_add(signal, func); - g_free(signal); + perl_command_bind(cmd, category, func); void command_unbind(cmd, func) char *cmd char *func CODE: - char *signal; - - signal = g_strconcat("command ", cmd, NULL); - perl_signal_remove(signal, func); - g_free(signal); + perl_command_unbind(cmd, func); -- cgit v1.2.3