diff options
| author | Stefan Monnier | 2011-12-04 10:46:07 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2011-12-04 10:46:07 -0500 |
| commit | 6d5eb5b0d2e50b0dd153a988cc52492cb77fc333 (patch) | |
| tree | a2dbd96b6b9a3cd154a98bb0b1981203cd5e1e5b /src/lisp.h | |
| parent | a0c3fad023c0b5812db38d2f1bd41998d7c001b1 (diff) | |
| download | emacs-6d5eb5b0d2e50b0dd153a988cc52492cb77fc333.tar.gz emacs-6d5eb5b0d2e50b0dd153a988cc52492cb77fc333.zip | |
Don't macro-inline non-performance-critical code.
* src/eval.c (process_quit_flag): New function.
* src/lisp.h (QUIT): Use it.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/lisp.h b/src/lisp.h index 969923b7cfb..f43533e0b6e 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -2143,18 +2143,11 @@ extern int pending_signals; | |||
| 2143 | #define ELSE_PENDING_SIGNALS | 2143 | #define ELSE_PENDING_SIGNALS |
| 2144 | #endif /* not SYNC_INPUT */ | 2144 | #endif /* not SYNC_INPUT */ |
| 2145 | 2145 | ||
| 2146 | extern void handle_quit_flag (void); | ||
| 2146 | #define QUIT \ | 2147 | #define QUIT \ |
| 2147 | do { \ | 2148 | do { \ |
| 2148 | if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ | 2149 | if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
| 2149 | { \ | 2150 | process_quit_flag (); \ |
| 2150 | Lisp_Object flag = Vquit_flag; \ | ||
| 2151 | Vquit_flag = Qnil; \ | ||
| 2152 | if (EQ (flag, Qkill_emacs)) \ | ||
| 2153 | Fkill_emacs (Qnil); \ | ||
| 2154 | if (EQ (Vthrow_on_input, flag)) \ | ||
| 2155 | Fthrow (Vthrow_on_input, Qt); \ | ||
| 2156 | Fsignal (Qquit, Qnil); \ | ||
| 2157 | } \ | ||
| 2158 | ELSE_PENDING_SIGNALS \ | 2151 | ELSE_PENDING_SIGNALS \ |
| 2159 | } while (0) | 2152 | } while (0) |
| 2160 | 2153 | ||