diff options
| author | Stefan Monnier | 2009-09-20 17:05:00 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2009-09-20 17:05:00 +0000 |
| commit | 5b650faa35d1ec890281e2143a14bdcaa836c155 (patch) | |
| tree | f90634a453c82362ea0e4f47e80fd942e1b3aa99 /src/eval.c | |
| parent | ea5fff5f19dedcb952deb8efc0fc85522efd8d88 (diff) | |
| download | emacs-5b650faa35d1ec890281e2143a14bdcaa836c155.tar.gz emacs-5b650faa35d1ec890281e2143a14bdcaa836c155.zip | |
(find_handler_clause): Make stack-trace-on-error work in batch mode (bug#4228).
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/src/eval.c b/src/eval.c index 94b6214715a..8d446de09fc 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1945,14 +1945,13 @@ find_handler_clause (handlers, conditions, sig, data) | |||
| 1945 | { | 1945 | { |
| 1946 | max_lisp_eval_depth += 15; | 1946 | max_lisp_eval_depth += 15; |
| 1947 | max_specpdl_size++; | 1947 | max_specpdl_size++; |
| 1948 | #ifdef PROTOTYPES | 1948 | if (noninteractive) |
| 1949 | internal_with_output_to_temp_buffer ("*Backtrace*", | 1949 | Fbacktrace (); |
| 1950 | (Lisp_Object (*) (Lisp_Object)) Fbacktrace, | 1950 | else |
| 1951 | Qnil); | 1951 | internal_with_output_to_temp_buffer |
| 1952 | #else | 1952 | ("*Backtrace*", |
| 1953 | internal_with_output_to_temp_buffer ("*Backtrace*", | 1953 | (Lisp_Object (*) (Lisp_Object)) Fbacktrace, |
| 1954 | Fbacktrace, Qnil); | 1954 | Qnil); |
| 1955 | #endif | ||
| 1956 | max_specpdl_size--; | 1955 | max_specpdl_size--; |
| 1957 | max_lisp_eval_depth -= 15; | 1956 | max_lisp_eval_depth -= 15; |
| 1958 | } | 1957 | } |