Feval: On Carbon/MacOSX call mac_check_for_quit_char at each stack frame.

This may change/move as it could be quite time consuming

1 files changed, 4 insertions, 0 deletions

diff --git a/src/eval.c b/src/eval.c
index 9cac4293243..7d8434ae78d 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2160,6 +2160,10 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
   if (backtrace.debug_on_exit)
     val = call_debugger (Fcons (Qexit, Fcons (val, Qnil)));
   backtrace_list = backtrace.next;
+
+#ifdef HAVE_CARBON
+  mac_check_for_quit_char();
+#endif  
   return val;
 }