(find_handler_clause): Make stack-trace-on-error work in batch mode (bug#4228).
This commit is contained in:
parent
ea5fff5f19
commit
5b650faa35
2 changed files with 12 additions and 8 deletions
|
@ -1,3 +1,8 @@
|
|||
2009-09-20 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* eval.c (find_handler_clause): Make stack-trace-on-error work in
|
||||
batch mode (bug#4228).
|
||||
|
||||
2009-09-18 Rob Christie <robchristie@gmail.com> (tiny change)
|
||||
|
||||
* nsmenu.m (EmacsMenu-parseKeyEquiv:): Parse key equivalent more
|
||||
|
|
15
src/eval.c
15
src/eval.c
|
@ -1945,14 +1945,13 @@ find_handler_clause (handlers, conditions, sig, data)
|
|||
{
|
||||
max_lisp_eval_depth += 15;
|
||||
max_specpdl_size++;
|
||||
#ifdef PROTOTYPES
|
||||
internal_with_output_to_temp_buffer ("*Backtrace*",
|
||||
(Lisp_Object (*) (Lisp_Object)) Fbacktrace,
|
||||
Qnil);
|
||||
#else
|
||||
internal_with_output_to_temp_buffer ("*Backtrace*",
|
||||
Fbacktrace, Qnil);
|
||||
#endif
|
||||
if (noninteractive)
|
||||
Fbacktrace ();
|
||||
else
|
||||
internal_with_output_to_temp_buffer
|
||||
("*Backtrace*",
|
||||
(Lisp_Object (*) (Lisp_Object)) Fbacktrace,
|
||||
Qnil);
|
||||
max_specpdl_size--;
|
||||
max_lisp_eval_depth -= 15;
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue