From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 5 Jun 2008 05:46:11 +0000 (+0000)
Subject: (trace-entry-message, trace-exit-message): Use print-circle.
X-Git-Tag: emacs-pretest-23.0.90~5085
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1d6575d634a099b0b1a68529374ae8e0409a461;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44378452af4..37d24c0e1fd 100644
--- 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 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