aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/eval.c8
2 files changed, 11 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 0049b350f44..43d5caa4eaf 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
12008-08-27 Chong Yidong <cyd@stupidchicken.com>
2
3 * eval.c (find_handler_clause): Temporarily increase
4 max-lisp-eval-depth while printing the backtrace buffer, to
5 guarantee that help-mode code can run.
6
12008-08-27 Eli Zaretskii <eliz@gnu.org> 72008-08-27 Eli Zaretskii <eliz@gnu.org>
2 8
3 * msdos.c (Fmsdos_remember_default_colors): Don't reverse frame 9 * msdos.c (Fmsdos_remember_default_colors): Don't reverse frame
diff --git a/src/eval.c b/src/eval.c
index 083cea889f5..6531b977990 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1941,16 +1941,18 @@ find_handler_clause (handlers, conditions, sig, data)
1941 { 1941 {
1942 if (!NILP (sig) && wants_debugger (Vstack_trace_on_error, conditions)) 1942 if (!NILP (sig) && wants_debugger (Vstack_trace_on_error, conditions))
1943 { 1943 {
1944 max_lisp_eval_depth += 15;
1944 max_specpdl_size++; 1945 max_specpdl_size++;
1945 #ifdef PROTOTYPES 1946#ifdef PROTOTYPES
1946 internal_with_output_to_temp_buffer ("*Backtrace*", 1947 internal_with_output_to_temp_buffer ("*Backtrace*",
1947 (Lisp_Object (*) (Lisp_Object)) Fbacktrace, 1948 (Lisp_Object (*) (Lisp_Object)) Fbacktrace,
1948 Qnil); 1949 Qnil);
1949 #else 1950#else
1950 internal_with_output_to_temp_buffer ("*Backtrace*", 1951 internal_with_output_to_temp_buffer ("*Backtrace*",
1951 Fbacktrace, Qnil); 1952 Fbacktrace, Qnil);
1952 #endif 1953#endif
1953 max_specpdl_size--; 1954 max_specpdl_size--;
1955 max_lisp_eval_depth -= 15;
1954 } 1956 }
1955 1957
1956 if (!debugger_considered) 1958 if (!debugger_considered)