zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-10 20:33:46 +02:00
Code Issues Projects Releases Packages Wiki Activity

Unbinding commands didn't work properly

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1058 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-01-04 09:45:46 +00:00 • committed by cras
commit fe8710ac41
3 changed files with 29 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/perl/common/Core.xs
View file

@ -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);