Method code for $event_handler.unhook_from_event()

[Turn on line numbering]

---

arg event;
var events;

if (hooks) {
    events = (| hooks[event] |) || [];
    events = setremove((| hooks[event] |) || [], sender());
    if (events)
        hooks = dict_add(hooks, event, setremove(hooks[event], sender()));
    else
        hooks = (| dict_del(hooks, event) |);
}
if (hooked)
    hooked = hooked.del_elem(sender(), event);

---

// Created 17-Dec-1996 as a part of ColdCore, see: @help Credit