mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

(pp-eval-expression): Once again eval the argument, but read it as `X' does.

Browse source
This commit is contained in:
Richard M. Stallman 2007-01-10 01:14:26 +00:00
parent 3ad0c61641
commit 247bc2725b
2 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/pp.el
View file

@ -97,16 +97,13 @@ Output stream is STREAM, or value of `standard-output' (which see)."
(princ (pp-to-string object) (or stream standard-output)))
;;;###autoload
(defun pp-eval-expression (expval)
"Evaluate an expression, then pretty-print value EXPVAL into a new buffer.
If pretty-printed EXPVAL fits on one line, display it in the echo
area instead. Also add EXPVAL to the front of the list
in the variable `values'.
Non-interactively, the argument is the value, EXPVAL, not the expression
to evaluate."
(interactive "XPp-eval: ")
(setq values (cons expval values))
(defun pp-eval-expression (expression)
"Evaluate EXPRESSION and pretty-print its value.
Also add the value to the front of the list in the variable `values'."
(interactive
(list (read-from-minibuffer "Eval: " nil read-expression-map t
'read-expression-history)))
(setq values (cons (eval expression) values))
(let* ((old-show-function temp-buffer-show-function)
;; Use this function to display the buffer.
;; This function either decides not to display it at all