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
This commit is contained in:
parent
3605200c46
commit
824eb35eec
1 changed files with 4 additions and 0 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue