diff options
| author | Kim F. Storm | 2005-06-03 23:02:30 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-06-03 23:02:30 +0000 |
| commit | 731475e79a78cb7f0eb8a25c22a17513fea02738 (patch) | |
| tree | 9504c04c6dbdc465e02228babfd3f1042d9acbdf /src/bytecode.c | |
| parent | 5a073f50755944ae51a08f670d8acf192d69e036 (diff) | |
| download | emacs-731475e79a78cb7f0eb8a25c22a17513fea02738.tar.gz emacs-731475e79a78cb7f0eb8a25c22a17513fea02738.zip | |
(BYTE_CODE_QUIT): Check Vthrow_on_input.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index e8d006e67d1..6b05a3270d2 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -384,8 +384,11 @@ unmark_byte_stack () | |||
| 384 | do { \ | 384 | do { \ |
| 385 | if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ | 385 | if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
| 386 | { \ | 386 | { \ |
| 387 | Lisp_Object flag = Vquit_flag; \ | ||
| 387 | Vquit_flag = Qnil; \ | 388 | Vquit_flag = Qnil; \ |
| 388 | BEFORE_POTENTIAL_GC (); \ | 389 | BEFORE_POTENTIAL_GC (); \ |
| 390 | if (EQ (Vthrow_on_input, flag)) \ | ||
| 391 | Fthrow (Vthrow_on_input, Qnil); \ | ||
| 389 | Fsignal (Qquit, Qnil); \ | 392 | Fsignal (Qquit, Qnil); \ |
| 390 | AFTER_POTENTIAL_GC (); \ | 393 | AFTER_POTENTIAL_GC (); \ |
| 391 | } \ | 394 | } \ |