diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-30 16:28:22 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-30 16:28:22 +0200 |
| commit | d4b6d95d51c84ee12cd41fead4bb64191b6d5b6b (patch) | |
| tree | e7f66d2f077bcc1396fef35427a2bc3203e0ae84 /src/eval.c | |
| parent | cad90f3b7ad1fafdb09d1bcd3fe4908f94cb3943 (diff) | |
| download | emacs-d4b6d95d51c84ee12cd41fead4bb64191b6d5b6b.tar.gz emacs-d4b6d95d51c84ee12cd41fead4bb64191b6d5b6b.tar.bz2 emacs-d4b6d95d51c84ee12cd41fead4bb64191b6d5b6b.zip | |
(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.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index d64d15040df..15112d8659b 100644 --- a/src/eval.c +++ b/src/eval.c @@ -3441,8 +3441,10 @@ Output stream used is value of `standard-output'. */) Lisp_Object tail; Lisp_Object tem; struct gcpro gcpro1; + Lisp_Object old_print_level = Vprint_level; - XSETFASTINT (Vprint_level, 3); + if (NILP (Vprint_level)) + XSETFASTINT (Vprint_level, 8); tail = Qnil; GCPRO1 (tail); @@ -3483,7 +3485,7 @@ Output stream used is value of `standard-output'. */) backlist = backlist->next; } - Vprint_level = Qnil; + Vprint_level = old_print_level; UNGCPRO; return Qnil; } |