X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/a9de04fa62f123413d82b7b7b1e7a77705eb82dd..333d54dade1e7005d5a97612907158fe5ec3d310:/lisp/emacs-lisp/debug.el

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 0bdab91943..88633eaaa4 100644
--- 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)