diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-05 05:46:11 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-05 05:46:11 +0000 |
| commit | b1d6575d634a099b0b1a68529374ae8e0409a461 (patch) | |
| tree | e59f7a9fed472df92d0c29e18c402630a308f1d8 /lisp/emacs-lisp/trace.el | |
| parent | c0dc8f64a9adeab709cf22468d80afe97d7ad50d (diff) | |
| download | emacs-b1d6575d634a099b0b1a68529374ae8e0409a461.tar.gz emacs-b1d6575d634a099b0b1a68529374ae8e0409a461.tar.bz2 emacs-b1d6575d634a099b0b1a68529374ae8e0409a461.zip | |
(trace-entry-message, trace-exit-message): Use print-circle.
Diffstat (limited to 'lisp/emacs-lisp/trace.el')
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index 3f0a4d0f6ee..b583f8a1b04 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -185,15 +185,16 @@ (if (> level 1) " " "") level function - (mapconcat (lambda (binding) - (concat - (symbol-name (ad-arg-binding-field binding 'name)) - "=" - ;; do this so we'll see strings: - (prin1-to-string - (ad-arg-binding-field binding 'value)))) - argument-bindings - " "))) + (let ((print-circle t)) + (mapconcat (lambda (binding) + (concat + (symbol-name (ad-arg-binding-field binding 'name)) + "=" + ;; do this so we'll see strings: + (prin1-to-string + (ad-arg-binding-field binding 'value)))) + argument-bindings + " ")))) (defun trace-exit-message (function level value) ;; Generates a string that describes that FUNCTION has been exited at @@ -204,7 +205,7 @@ level function ;; do this so we'll see strings: - (prin1-to-string value))) + (let ((print-circle t)) (prin1-to-string value)))) (defun trace-make-advice (function buffer background) ;; Builds the piece of advice to be added to FUNCTION's advice info |