[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/trace.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/06/05 05:46:11

Index: emacs-lisp/trace.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/trace.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- emacs-lisp/trace.el 6 May 2008 03:21:20 -0000       1.20
+++ emacs-lisp/trace.el 5 Jun 2008 05:46:11 -0000       1.21
@@ -185,6 +185,7 @@
          (if (> level 1) " " "")
          level
          function
+          (let ((print-circle t))
          (mapconcat (lambda (binding)
                       (concat
                        (symbol-name (ad-arg-binding-field binding 'name))
@@ -193,7 +194,7 @@
                        (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