procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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) 2005-12-17 Martin Rudalics <rudalics@gmx.at> (tiny change)
* wid-edit.el (widget-checkbox-action): Clear undo info. * 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-level (or edebug-print-level print-level))
(print-circle (or edebug-print-circle print-circle)) (print-circle (or edebug-print-circle print-circle))
(print-readably nil)) ;; lemacs uses this. (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) (defun edebug-compute-previous-result (edebug-previous-value)
(if edebug-unwrap-results (if edebug-unwrap-results