(Fbacktrace): Don't overwrite print-level on exit.

Also only override Vprint_level if it isn't already bound, and
increase the level to 8 to produce more useful backtraces for bug
reports.
parent cad90f3b
2010-09-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
* eval.c (Fbacktrace): Don't overwrite print-level on exit. Also
only override Vprint_level if it isn't already bound, and increase
the level to 8 to produce more useful backtraces for bug reports.
2010-09-30 Dan Nicolaescu <dann@ics.uci.edu> 2010-09-30 Dan Nicolaescu <dann@ics.uci.edu>
* Makefile.in: ecrt0.c does not exist anymore, do not mention it. * Makefile.in: ecrt0.c does not exist anymore, do not mention it.
......
...@@ -3441,8 +3441,10 @@ Output stream used is value of `standard-output'. */) ...@@ -3441,8 +3441,10 @@ Output stream used is value of `standard-output'. */)
Lisp_Object tail; Lisp_Object tail;
Lisp_Object tem; Lisp_Object tem;
struct gcpro gcpro1; struct gcpro gcpro1;
Lisp_Object old_print_level = Vprint_level;
XSETFASTINT (Vprint_level, 3); if (NILP (Vprint_level))
XSETFASTINT (Vprint_level, 8);
tail = Qnil; tail = Qnil;
GCPRO1 (tail); GCPRO1 (tail);
...@@ -3483,7 +3485,7 @@ Output stream used is value of `standard-output'. */) ...@@ -3483,7 +3485,7 @@ Output stream used is value of `standard-output'. */)
backlist = backlist->next; backlist = backlist->next;
} }
Vprint_level = Qnil; Vprint_level = old_print_level;
UNGCPRO; UNGCPRO;
return Qnil; return Qnil;
} }
......
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