From e59eee439c0e379bb062ffa26361ad90fd540406 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 16 Jan 2013 14:06:15 -0500 Subject: [PATCH] * lisp/emacs-lisp/trace.el (trace--read-args): Use a closure and an honest call to `eval' rather than a backquoted lambda. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/trace.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f324ebbad51..676ce21ff14 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-01-16 Stefan Monnier + + * 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 * emacs-lisp/nadvice.el (advice--tweak): Make it possible for `tweak' 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) -- 2.39.5