(find_handler_clause): Make stack-trace-on-error work in batch mode (bug#4228).

This commit is contained in:
Stefan Monnier 2009-09-20 17:05:00 +00:00
parent ea5fff5f19
commit 5b650faa35
2 changed files with 12 additions and 8 deletions

View file

@ -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

View file

@ -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;
}