* lisp/emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to

print depth and length.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f131f9717944a4e1e31102f9e9245fca7bf0a79..8a0f8084c53741a89c77582d73d70e628729bc1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to
+       print depth and length.
+
 2011-03-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/cl-macs.el (cl-byte-compile-block, cl-block-wrapper)

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 0bdab9194347263395d11d2f6387259bba61395f..88633eaaa4648eea379aa5615eeb77b45a7b2b97 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -269,10 +269,8 @@ That buffer should be current already."
   (setq buffer-undo-list t)
   (let ((standard-output (current-buffer))
        (print-escape-newlines t)
-        (print-quoted t)                ;Doesn't seem to work :-(
-       (print-level 1000)              ;8
-       ;; (print-length 50)
-        )
+       (print-level 8)
+       (print-length 50))
     (backtrace))
   (goto-char (point-min))
   (delete-region (point)