diff src/eval.c @ 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.

--- 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;
 }