[Emacs-diffs] /srv/bzr/emacs/trunk r101692: (Fbacktrace): Don't overwrite print-level on exit.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 101692
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2010-09-30 16:28:22 +0200
message:
  (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.
modified:
  src/ChangeLog
  src/eval.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-09-30 01:20:51 +0000
+++ b/src/ChangeLog     2010-09-30 14:28:22 +0000
@@ -1,3 +1,9 @@
+2010-09-30  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * Makefile.in: ecrt0.c does not exist anymore, do not mention it.

=== modified file 'src/eval.c'
--- a/src/eval.c        2010-09-24 19:30:13 +0000
+++ b/src/eval.c        2010-09-30 14:28:22 +0000
@@ -3441,8 +3441,10 @@
   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 @@
       backlist = backlist->next;
     }
 
-  Vprint_level = Qnil;
+  Vprint_level = old_print_level;
   UNGCPRO;
   return Qnil;
 }