* emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Capture

error from printing circular structures.
This commit is contained in:
Chong Yidong 2005-12-17 15:45:55 +00:00
parent d912b87a54
commit 14e7cb9400
2 changed files with 8 additions and 1 deletions

View file

@ -3711,7 +3711,9 @@ Return the result of the last expression."
(print-level (or edebug-print-level print-level))
(print-circle (or edebug-print-circle print-circle))
(print-readably nil)) ;; lemacs uses this.
(edebug-prin1-to-string value)))
(condition-case nil
(edebug-prin1-to-string value)
(error "#Apparently circular structure#"))))
(defun edebug-compute-previous-result (edebug-previous-value)
(if edebug-unwrap-results