Commit 247bc272 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 3ad0c616
2007-01-10 Richard Stallman <rms@gnu.org>
* emacs-lisp/pp.el (pp-eval-expression): Once again eval the
argument, but read it as `X' does.
2007-01-09 Juri Linkov <juri@jurta.org>
* info.el (Info-fontify-node): Don't hide node names of index entries.
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment