Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 67635:70e76c30ddcc
* emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Capture
error from printing circular structures.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 17 Dec 2005 15:45:55 +0000 |
| parents | ad09fcb8cef5 |
| children | 6f62623c8c61 |
comparison
equal
deleted
inserted
replaced
| 67634:83c53d29eff4 | 67635:70e76c30ddcc |
|---|---|
| 3709 (let ((print-escape-newlines t) | 3709 (let ((print-escape-newlines t) |
| 3710 (print-length (or edebug-print-length print-length)) | 3710 (print-length (or edebug-print-length print-length)) |
| 3711 (print-level (or edebug-print-level print-level)) | 3711 (print-level (or edebug-print-level print-level)) |
| 3712 (print-circle (or edebug-print-circle print-circle)) | 3712 (print-circle (or edebug-print-circle print-circle)) |
| 3713 (print-readably nil)) ;; lemacs uses this. | 3713 (print-readably nil)) ;; lemacs uses this. |
| 3714 (edebug-prin1-to-string value))) | 3714 (condition-case nil |
| 3715 (edebug-prin1-to-string value) | |
| 3716 (error "#Apparently circular structure#")))) | |
| 3715 | 3717 |
| 3716 (defun edebug-compute-previous-result (edebug-previous-value) | 3718 (defun edebug-compute-previous-result (edebug-previous-value) |
| 3717 (if edebug-unwrap-results | 3719 (if edebug-unwrap-results |
| 3718 (setq edebug-previous-value | 3720 (setq edebug-previous-value |
| 3719 (edebug-unwrap* edebug-previous-value))) | 3721 (edebug-unwrap* edebug-previous-value))) |