Commit 48ce8ca7 authored by Chong Yidong's avatar Chong Yidong
Browse files

(find_handler_clause): Temporarily increase max-lisp-eval-depth while

printing the backtrace buffer, to guarantee that help-mode code can
run.
parent fe9365b3
2008-08-27 Chong Yidong <cyd@stupidchicken.com>
* eval.c (find_handler_clause): Temporarily increase
max-lisp-eval-depth while printing the backtrace buffer, to
guarantee that help-mode code can run.
2008-08-27 Eli Zaretskii <eliz@gnu.org> 2008-08-27 Eli Zaretskii <eliz@gnu.org>
   
* msdos.c (Fmsdos_remember_default_colors): Don't reverse frame * msdos.c (Fmsdos_remember_default_colors): Don't reverse frame
......
...@@ -1941,16 +1941,18 @@ find_handler_clause (handlers, conditions, sig, data) ...@@ -1941,16 +1941,18 @@ find_handler_clause (handlers, conditions, sig, data)
{ {
if (!NILP (sig) && wants_debugger (Vstack_trace_on_error, conditions)) if (!NILP (sig) && wants_debugger (Vstack_trace_on_error, conditions))
{ {
max_lisp_eval_depth += 15;
max_specpdl_size++; max_specpdl_size++;
#ifdef PROTOTYPES #ifdef PROTOTYPES
internal_with_output_to_temp_buffer ("*Backtrace*", internal_with_output_to_temp_buffer ("*Backtrace*",
(Lisp_Object (*) (Lisp_Object)) Fbacktrace, (Lisp_Object (*) (Lisp_Object)) Fbacktrace,
Qnil); Qnil);
#else #else
internal_with_output_to_temp_buffer ("*Backtrace*", internal_with_output_to_temp_buffer ("*Backtrace*",
Fbacktrace, Qnil); Fbacktrace, Qnil);
#endif #endif
max_specpdl_size--; max_specpdl_size--;
max_lisp_eval_depth -= 15;
} }
if (!debugger_considered) if (!debugger_considered)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment