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

Add bindings for exec-type window items to Perl

Browse source 
These bindings were missing and resulted in non-hash non-undef active
entries when an interactive process is executing.
This commit is contained in:
Ailin Nemui 2014-08-22 13:48:17 +02:00 • committed by ailin-nemui
commit 3532fc4671
2 changed files with 21 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/perl/perl-common.c
View file

@ -351,10 +351,12 @@ void perl_window_item_fill_hash(HV *hv, WI_ITEM_REC *item)
g_return_if_fail(item != NULL);
type = (char *) module_find_id_str("WINDOW ITEM TYPE", item->type);
chat_type = (char *) chat_protocol_find_id(item->chat_type)->name;
(void) hv_store(hv, "type", 4, new_pv(type), 0);
(void) hv_store(hv, "chat_type", 9, new_pv(chat_type), 0);
if (item->chat_type) {
chat_type = (char *) chat_protocol_find_id(item->chat_type)->name;
(void) hv_store(hv, "chat_type", 9, new_pv(chat_type), 0);
}
if (item->server != NULL) {
(void) hv_store(hv, "server", 6, iobject_bless(item->server), 0);