mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
call to `eval' rather than a backquoted lambda.
This commit is contained in:
Stefan Monnier 2013-01-16 14:06:15 -05:00
parent ffe04adc88
commit e59eee439c
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/trace.el
View file

@ -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)