diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-07-02 23:00:53 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-07-02 23:00:53 -0700 |
| commit | 2d3c9015c70fd05ac1bec42cc59d57c3fb6b82b5 (patch) | |
| tree | 572bc2de8c74eee49d8c49eb84a618b55fa3abf7 /lisp/emacs-lisp | |
| parent | e993f8d5d39431545ac0071655071a740534917b (diff) | |
| parent | cbb6a7aeff3b901645ee8e4f2c4abeceafdfc073 (diff) | |
| download | emacs-2d3c9015c70fd05ac1bec42cc59d57c3fb6b82b5.tar.gz | |
Merge from emacs-24; up to 2014-06-15T04:52:34Z!eli@barzilay.org
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |