diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-01-16 14:06:15 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-01-16 14:06:15 -0500 |
| commit | e59eee439c0e379bb062ffa26361ad90fd540406 (patch) | |
| tree | 02a0e0d46a93f181dab4e0f08e9aed6b194240dd /lisp/emacs-lisp/trace.el | |
| parent | ffe04adc88e546c406f9b050238fb98a7243c7a0 (diff) | |
| download | emacs-e59eee439c0e379bb062ffa26361ad90fd540406.tar.gz | |
* lisp/emacs-lisp/trace.el (trace--read-args): Use a closure and an honest
call to `eval' rather than a backquoted lambda.
Diffstat (limited to 'lisp/emacs-lisp/trace.el')
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index fb1b995be2b..09c4969cf18 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -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) |