diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-06-03 23:02:30 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-06-03 23:02:30 +0000 |
| commit | 731475e79a78cb7f0eb8a25c22a17513fea02738 (patch) | |
| tree | 9504c04c6dbdc465e02228babfd3f1042d9acbdf /src/bytecode.c | |
| parent | 5a073f50755944ae51a08f670d8acf192d69e036 (diff) | |
| download | emacs-731475e79a78cb7f0eb8a25c22a17513fea02738.tar.gz | |
(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 () do { \ if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ { \ + Lisp_Object flag = Vquit_flag; \ Vquit_flag = Qnil; \ BEFORE_POTENTIAL_GC (); \ + if (EQ (Vthrow_on_input, flag)) \ + Fthrow (Vthrow_on_input, Qnil); \ Fsignal (Qquit, Qnil); \ AFTER_POTENTIAL_GC (); \ } \ |