mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

4
lisp/emacs-lisp/edebug.el
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