# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1161169351 0
# Node ID 5eddbe5650626fafffc55c58325633c24f1c5301
# Parent  d443f2b23be1c97142731ec54cfe7f7e6eaaa0db
(pp-eval-expression): Use `X' to read value.
Non-interactive arg is the value, not the expression.

diff -r d443f2b23be1 -r 5eddbe565062 lisp/emacs-lisp/pp.el
--- a/lisp/emacs-lisp/pp.el	Wed Oct 18 10:58:39 2006 +0000
+++ b/lisp/emacs-lisp/pp.el	Wed Oct 18 11:02:31 2006 +0000
@@ -97,13 +97,16 @@
   (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))
+(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