1768 |
#ifdef SYNC_INPUT |
#ifdef SYNC_INPUT |
1769 |
extern void handle_async_input P_ ((void)); |
extern void handle_async_input P_ ((void)); |
1770 |
extern int interrupt_input_pending; |
extern int interrupt_input_pending; |
1771 |
|
|
1772 |
#define QUIT \ |
#define QUIT \ |
1773 |
do { \ |
do { \ |
1774 |
if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
1775 |
{ \ |
{ \ |
1776 |
|
Lisp_Object flag = Vquit_flag; \ |
1777 |
Vquit_flag = Qnil; \ |
Vquit_flag = Qnil; \ |
1778 |
|
if (EQ (Vthrow_on_input, flag)) \ |
1779 |
|
Fthrow (Vthrow_on_input, Qnil); \ |
1780 |
Fsignal (Qquit, Qnil); \ |
Fsignal (Qquit, Qnil); \ |
1781 |
} \ |
} \ |
1782 |
else if (interrupt_input_pending) \ |
else if (interrupt_input_pending) \ |
1789 |
do { \ |
do { \ |
1790 |
if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
1791 |
{ \ |
{ \ |
1792 |
|
Lisp_Object flag = Vquit_flag; \ |
1793 |
Vquit_flag = Qnil; \ |
Vquit_flag = Qnil; \ |
1794 |
|
if (EQ (Vthrow_on_input, flag)) \ |
1795 |
|
Fthrow (Vthrow_on_input, Qnil); \ |
1796 |
Fsignal (Qquit, Qnil); \ |
Fsignal (Qquit, Qnil); \ |
1797 |
} \ |
} \ |
1798 |
} while (0) |
} while (0) |
2883 |
extern void cancel_echoing P_ ((void)); |
extern void cancel_echoing P_ ((void)); |
2884 |
extern Lisp_Object Qdisabled, QCfilter; |
extern Lisp_Object Qdisabled, QCfilter; |
2885 |
extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level; |
extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level; |
2886 |
|
extern Lisp_Object Vthrow_on_input; |
2887 |
extern int input_pending; |
extern int input_pending; |
2888 |
EXFUN (Fdiscard_input, 0); |
EXFUN (Fdiscard_input, 0); |
2889 |
EXFUN (Frecursive_edit, 0); |
EXFUN (Frecursive_edit, 0); |