Mercurial > emacs
changeset 110664:f330be51ec02
(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.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Thu, 30 Sep 2010 16:28:22 +0200 |
| parents | c05f92a4d834 |
| children | 49d445615c07 |
| files | src/ChangeLog src/eval.c |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Sep 30 14:44:25 2010 +0200 +++ b/src/ChangeLog Thu Sep 30 16:28:22 2010 +0200 @@ -1,3 +1,9 @@ +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> * Makefile.in: ecrt0.c does not exist anymore, do not mention it.
--- a/src/eval.c Thu Sep 30 14:44:25 2010 +0200 +++ b/src/eval.c Thu Sep 30 16:28:22 2010 +0200 @@ -3441,8 +3441,10 @@ Lisp_Object tail; Lisp_Object tem; struct gcpro gcpro1; - - XSETFASTINT (Vprint_level, 3); + Lisp_Object old_print_level = Vprint_level; + + if (NILP (Vprint_level)) + XSETFASTINT (Vprint_level, 8); tail = Qnil; GCPRO1 (tail); @@ -3483,7 +3485,7 @@ backlist = backlist->next; } - Vprint_level = Qnil; + Vprint_level = old_print_level; UNGCPRO; return Qnil; }