From cc4f9c83bccac43a1463769286f0f6b10864ef15 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Wed, 2 Jul 2014 13:05:50 +0800 Subject: [PATCH] * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp): Support lexical-binding. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/pp.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 017c7adad28..df299ec1341 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-02 Leo Liu + + * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp): + Support lexical-binding. + 2014-07-01 Stefan Monnier * vc/log-edit.el (log-edit-goto-eoh): New function. diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 0e4139e1aeb..dd012fab9da 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -129,7 +129,7 @@ Also add the value to the front of the list in the variable `values'." (interactive (list (read--expression "Eval: "))) (message "Evaluating...") - (setq values (cons (eval expression) values)) + (setq values (cons (eval expression lexical-binding) values)) (pp-display-expression (car values) "*Pp Eval Output*")) ;;;###autoload @@ -165,7 +165,7 @@ With argument, pretty-print output into current buffer. Ignores leading comment characters." (interactive "P") (if arg - (insert (pp-to-string (eval (pp-last-sexp)))) + (insert (pp-to-string (eval (pp-last-sexp) lexical-binding))) (pp-eval-expression (pp-last-sexp)))) ;;;###autoload -- 2.39.5