Function peek_timer

src/timeout.c:2323–2333

* Find the timeout of specified timer; return 0 if none. */

 * Find the timeout of specified timer; return 0 if none.
 */
long
peek_timer(short type, anything *arg)
{
    timer_element *curr;

    for (curr = gt.timer_base; curr; curr = curr->next) {
        if (curr->func_index == type && curr->arg.a_void == arg->a_void)
            return curr->timeout;
    }
    return 0L;
}

/*
 * Move all object timers from src to dest, leaving src untimed.