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

	error from printing circular structures.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20369d7a331a1124d9aa8fb0050f92e0fb0339c4..65961284484aad36773c69cc3268c4ad295b878b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-17  Chong Yidong  <cyd@stupidchicken.com>
+
+       * emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Capture
+       error from printing circular structures.
+
 2005-12-17  Martin Rudalics  <rudalics@gmx.at>  (tiny change)
 
        * wid-edit.el (widget-checkbox-action): Clear undo info.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 01f1d76010931f17a5c69e80a32ba0c38d6daf23..9290ede2bdfa034a9770313b4b734368186b18fa 100644 (file)
--- 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