[Emacs-diffs] emacs-24 r117338: * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):

[Leo Liu]

------------------------------------------------------------
revno: 117338
revision-id: address@hidden
parent: address@hidden
committer: Leo Liu <address@hidden>
branch nick: emacs-24
timestamp: Wed 2014-07-02 13:05:50 +0800
message:
  * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):
  Support lexical-binding.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/pp.el          pp.el-20091113204419-o5vbwnq5f7feedwu-781

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-01 15:15:03 +0000
+++ b/lisp/ChangeLog    2014-07-02 05:05:50 +0000
@@ -1,3 +1,8 @@
+2014-07-02  Leo Liu  <address@hidden>
+
+       * emacs-lisp/pp.el (pp-eval-expression, pp-eval-last-sexp):
+       Support lexical-binding.
+
 2014-07-01  Stefan Monnier  <address@hidden>
 
        * vc/log-edit.el (log-edit-goto-eoh): New function.

=== modified file 'lisp/emacs-lisp/pp.el'
--- a/lisp/emacs-lisp/pp.el     2014-01-01 07:43:34 +0000
+++ b/lisp/emacs-lisp/pp.el     2014-07-02 05:05:50 +0000
@@ -129,7 +129,7 @@
   (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 @@
 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