Perl fixes and additions. theme_register() / printformat() works now

with scripts


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@884 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-11-26 09:22:18 +00:00 committed by cras
commit 079932c405
10 changed files with 101 additions and 24 deletions

View file

@ -584,7 +584,10 @@ void theme_register_module(const char *module, FORMAT_REC *formats)
void theme_unregister_module(const char *module)
{
gpointer key, value;
gpointer key, value;
if (default_formats == NULL)
return; /* already uninitialized */
if (!g_hash_table_lookup_extended(default_formats, module, &key, &value))
return;
@ -1004,6 +1007,7 @@ void themes_deinit(void)
theme_destroy(themes->data);
g_hash_table_destroy(default_formats);
default_formats = NULL;
command_unbind("format", (SIGNAL_FUNC) cmd_format);
command_unbind("save", (SIGNAL_FUNC) cmd_save);