Commit b1d6575d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent c0dc8f64
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment