Mercurial > emacs
comparison src/eval.c @ 48742:7b5cd8383f0b
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
| author | Steven Tamm <steventamm@mac.com> |
|---|---|
| date | Sun, 08 Dec 2002 06:02:17 +0000 |
| parents | ccd782f27e54 |
| children | ac6f6d4b84ec |
comparison
equal
deleted
inserted
replaced
| 48741:a7aee9fdf21e | 48742:7b5cd8383f0b |
|---|---|
| 2158 done: | 2158 done: |
| 2159 lisp_eval_depth--; | 2159 lisp_eval_depth--; |
| 2160 if (backtrace.debug_on_exit) | 2160 if (backtrace.debug_on_exit) |
| 2161 val = call_debugger (Fcons (Qexit, Fcons (val, Qnil))); | 2161 val = call_debugger (Fcons (Qexit, Fcons (val, Qnil))); |
| 2162 backtrace_list = backtrace.next; | 2162 backtrace_list = backtrace.next; |
| 2163 | |
| 2164 #ifdef HAVE_CARBON | |
| 2165 mac_check_for_quit_char(); | |
| 2166 #endif | |
| 2163 return val; | 2167 return val; |
| 2164 } | 2168 } |
| 2165 | 2169 |
| 2166 DEFUN ("apply", Fapply, Sapply, 2, MANY, 0, | 2170 DEFUN ("apply", Fapply, Sapply, 2, MANY, 0, |
| 2167 doc: /* Call FUNCTION with our remaining args, using our last arg as list of args. | 2171 doc: /* Call FUNCTION with our remaining args, using our last arg as list of args. |