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

* lisp/emacs-lisp/trace.el (trace--read-args): Use a closure and an honest

call to `eval' rather than a backquoted lambda.
parent ffe04adc
2013-01-16 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/trace.el (trace--read-args): Use a closure and an honest
call to `eval' rather than a backquoted lambda.
2013-01-15 Stefan Monnier <monnier@iro.umontreal.ca>
 
* emacs-lisp/nadvice.el (advice--tweak): Make it possible for `tweak'
......
......@@ -256,9 +256,9 @@ be printed along with the arguments in the trace."
(read-from-minibuffer "Context expression: "
nil read-expression-map t
'read-expression-history))))
`(lambda ()
(let ((print-circle t))
(concat " [" (prin1-to-string ,exp) "]"))))))))
(lambda ()
(let ((print-circle t))
(concat " [" (prin1-to-string (eval exp t)) "]"))))))))
;;;###autoload
(defun trace-function-foreground (function &optional buffer context)
......
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