diff options
Diffstat (limited to 'lisp/emacs-lisp/pp.el')
-rw-r--r-- | lisp/emacs-lisp/pp.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index ef4c9603284..0bf774dffd8 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -127,8 +127,9 @@ Also add the value to the front of the list in the variable `values'." (interactive (list (read--expression "Eval: "))) (message "Evaluating...") - (push (eval expression lexical-binding) values) - (pp-display-expression (car values) "*Pp Eval Output*")) + (let ((result (eval expression lexical-binding))) + (values--store-value result) + (pp-display-expression result "*Pp Eval Output*"))) ;;;###autoload (defun pp-macroexpand-expression (expression) @@ -138,7 +139,7 @@ Also add the value to the front of the list in the variable `values'." (pp-display-expression (macroexpand-1 expression) "*Pp Macroexpand Output*")) (defun pp-last-sexp () - "Read sexp before point. Ignores leading comment characters." + "Read sexp before point. Ignore leading comment characters." (with-syntax-table emacs-lisp-mode-syntax-table (let ((pt (point))) (save-excursion @@ -158,7 +159,7 @@ Also add the value to the front of the list in the variable `values'." ;;;###autoload (defun pp-eval-last-sexp (arg) "Run `pp-eval-expression' on sexp before point. -With argument, pretty-print output into current buffer. +With ARG, pretty-print output into current buffer. Ignores leading comment characters." (interactive "P") (if arg @@ -171,7 +172,7 @@ Ignores leading comment characters." ;;;###autoload (defun pp-macroexpand-last-sexp (arg) "Run `pp-macroexpand-expression' on sexp before point. -With argument, pretty-print output into current buffer. +With ARG, pretty-print output into current buffer. Ignores leading comment characters." (interactive "P") (if arg |