Merge from trunk.

[gnu-emacs] / lisp / emacs-lisp / debug.el

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)