Mercurial > emacs
changeset 95577:e283d325f1bc
(trace-entry-message, trace-exit-message): Use print-circle.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 05 Jun 2008 05:46:11 +0000 |
| parents | abcb40dd43a2 |
| children | 73464776c892 |
| files | lisp/ChangeLog lisp/emacs-lisp/trace.el |
| diffstat | 2 files changed, 14 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 05 05:45:16 2008 +0000 +++ b/lisp/ChangeLog Thu Jun 05 05:46:11 2008 +0000 @@ -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.
--- a/lisp/emacs-lisp/trace.el Thu Jun 05 05:45:16 2008 +0000 +++ b/lisp/emacs-lisp/trace.el Thu Jun 05 05:46:11 2008 +0000 @@ -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