From 14e7cb9400b89584be38d800f8af8db0b2d1c0ff Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 17 Dec 2005 15:45:55 +0000 Subject: * emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Capture error from printing circular structures. --- lisp/emacs-lisp/edebug.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 01f1d760109..9290ede2bdf 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -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 -- cgit v1.2.3