(trace-entry-message, trace-exit-message): Use print-circle.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44378452af446b829ccf10944542c4684b2b2105..37d24c0e1fd77fb179b32f971ebf7dd3b3a3de8d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/trace.el (trace-entry-message, trace-exit-message):
+       Use print-circle.
+
        * minibuffer.el (minibuffer-local-must-match-filename-map):
        Declare obsolete alias for the old name.
 

diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el
index 3f0a4d0f6eee721ab9949b7cf70b8c0cf78e176b..b583f8a1b04bee899140864a13b7f8b2334588cd 100644 (file)
--- 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