comparison lisp/emacs-lisp/pp.el @ 73417:5eddbe565062

(pp-eval-expression): Use `X' to read value. Non-interactive arg is the value, not the expression.

73416:d443f2b23be1

can handle, whenever this is possible.
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 (expression)
  "Evaluate EXPRESSION and pretty-print value into a new display buffer.
If the pretty-printed value fits on one line, the message line is used
instead.  The value is also consed onto the front of the list
in the variable `values'."
  (interactive "xPp-eval: ")
  (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
	 ;; or displays it in the usual way.
	 (temp-buffer-show-function

73417:5eddbe565062

can handle, whenever this is possible.
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))
  (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
	 ;; or displays it in the usual way.
	 (temp-buffer-show-function