/[emacs]/emacs/src/lisp.h
ViewVC logotype

Diff of /emacs/src/lisp.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.515 by jhd, Tue Dec 7 08:25:43 2004 UTC revision 1.516 by rms, Mon Dec 13 18:56:52 2004 UTC
# Line 1768  extern char *stack_bottom; Line 1768  extern char *stack_bottom;
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)                   \
# Line 1785  extern int interrupt_input_pending; Line 1789  extern int 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)
# Line 2876  extern struct kboard *echo_kboard; Line 2883  extern struct kboard *echo_kboard;
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);

Legend:
Removed from v.1.515  
changed lines
  Added in v.1.516

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26