[Emacs-diffs] /srv/bzr/emacs/trunk r111539: * lisp/emacs-lisp/trace.el (trace--read-args): Use a closure and an honest

[Stefan Monnier]

------------------------------------------------------------
revno: 111539
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2013-01-16 14:06:15 -0500
message:
  * lisp/emacs-lisp/trace.el (trace--read-args): Use a closure and an honest
  call to `eval' rather than a backquoted lambda.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/trace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-15 06:05:22 +0000
+++ b/lisp/ChangeLog    2013-01-16 19:06:15 +0000
@@ -1,3 +1,8 @@
+2013-01-16  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/nadvice.el (advice--tweak): Make it possible for `tweak'

=== modified file 'lisp/emacs-lisp/trace.el'
--- a/lisp/emacs-lisp/trace.el  2013-01-11 23:03:04 +0000
+++ b/lisp/emacs-lisp/trace.el  2013-01-16 19:06:15 +0000
@@ -256,9 +256,9 @@
                (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)