From: Richard M. Stallman Date: Wed, 10 Jan 2007 01:14:26 +0000 (+0000) Subject: (pp-eval-expression): Once again eval the argument, but read it as `X' does. X-Git-Tag: emacs-pretest-22.0.93~186 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=247bc2725b463c492d1990106584a683e00cb464;p=emacs.git (pp-eval-expression): Once again eval the argument, but read it as `X' does. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d33c4a23c08..809f6510b9c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-01-10 Richard Stallman + + * emacs-lisp/pp.el (pp-eval-expression): Once again eval the + argument, but read it as `X' does. + 2007-01-09 Juri Linkov * info.el (Info-fontify-node): Don't hide node names of index entries. diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 77f8854e022..27cb936c598 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -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