3580 |
} |
} |
3581 |
#endif |
#endif |
3582 |
|
|
3583 |
|
|
3584 |
|
Lisp_Object Vthrow_on_input; |
3585 |
|
|
3586 |
/* Store an event obtained at interrupt level into kbd_buffer, fifo */ |
/* Store an event obtained at interrupt level into kbd_buffer, fifo */ |
3587 |
|
|
3588 |
void |
void |
3708 |
*kbd_store_ptr = *event; |
*kbd_store_ptr = *event; |
3709 |
++kbd_store_ptr; |
++kbd_store_ptr; |
3710 |
} |
} |
3711 |
|
|
3712 |
|
/* If we're in a section that requested to be interrupted as soon |
3713 |
|
as input comes, then set quit-flag to cause an interrupt. */ |
3714 |
|
if (!NILP (Vthrow_on_input) |
3715 |
|
&& event->kind != FOCUS_IN_EVENT |
3716 |
|
&& event->kind != HELP_EVENT |
3717 |
|
&& event->kind != DEICONIFY_EVENT) |
3718 |
|
Vquit_flag = Vthrow_on_input; |
3719 |
} |
} |
3720 |
|
|
3721 |
|
|
11388 |
doc: /* *How long to display an echo-area message when the minibuffer is active. |
doc: /* *How long to display an echo-area message when the minibuffer is active. |
11389 |
If the value is not a number, such messages don't time out. */); |
If the value is not a number, such messages don't time out. */); |
11390 |
Vminibuffer_message_timeout = make_number (2); |
Vminibuffer_message_timeout = make_number (2); |
11391 |
|
|
11392 |
|
DEFVAR_LISP ("throw-on-input", &Vthrow_on_input, |
11393 |
|
doc: /* If non-nil, any keyboard input throws to this symbol. |
11394 |
|
The value of that variable is passed to `quit-flag' and later causes a |
11395 |
|
peculiar kind of quitting. */); |
11396 |
|
Vthrow_on_input = Qnil; |
11397 |
} |
} |
11398 |
|
|
11399 |
void |
void |