diff options
| author | Stefan Monnier | 2011-03-19 23:53:45 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-03-19 23:53:45 -0400 |
| commit | bf02cb227d98626c3dff61c69fa8b4ce523d71bd (patch) | |
| tree | 084efda653c89fc6dcef96f46a0f1abd54380102 | |
| parent | 414dbb000dcd62c4f252b5f73f9847340de40396 (diff) | |
| download | emacs-bf02cb227d98626c3dff61c69fa8b4ce523d71bd.tar.gz emacs-bf02cb227d98626c3dff61c69fa8b4ce523d71bd.zip | |
* lisp/emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to
print depth and length.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7f131f97179..8a0f8084c53 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-03-20 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to | ||
| 4 | print depth and length. | ||
| 5 | |||
| 1 | 2011-03-19 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2011-03-19 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * emacs-lisp/cl-macs.el (cl-byte-compile-block, cl-block-wrapper) | 8 | * 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 0bdab919434..88633eaaa46 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -269,10 +269,8 @@ That buffer should be current already." | |||
| 269 | (setq buffer-undo-list t) | 269 | (setq buffer-undo-list t) |
| 270 | (let ((standard-output (current-buffer)) | 270 | (let ((standard-output (current-buffer)) |
| 271 | (print-escape-newlines t) | 271 | (print-escape-newlines t) |
| 272 | (print-quoted t) ;Doesn't seem to work :-( | 272 | (print-level 8) |
| 273 | (print-level 1000) ;8 | 273 | (print-length 50)) |
| 274 | ;; (print-length 50) | ||
| 275 | ) | ||
| 276 | (backtrace)) | 274 | (backtrace)) |
| 277 | (goto-char (point-min)) | 275 | (goto-char (point-min)) |
| 278 | (delete-region (point) | 276 | (delete-region (point) |