From: Glenn Morris <rgm@gnu.org>
Date: Fri, 3 Aug 2007 03:19:07 +0000 (+0000)
Subject: Revert previous change, which was only supposed to be in trunk.
X-Git-Tag: emacs-pretest-22.1.90~1115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=501d63d62db20dedc26a803bcc601d89915f5c52;p=emacs.git

Revert previous change, which was only supposed to be in trunk.
---

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index a5cefff399f..21175a03b4d 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -103,7 +103,6 @@ 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)))
-  (message "Evaluating...")
   (setq values (cons (eval expression) values))
   (let* ((old-show-function temp-buffer-show-function)
 	 ;; Use this function to display the buffer.
@@ -127,16 +126,13 @@ Also add the value to the front of the list in the variable `values'."
 			 (progn
 			   (select-window window)
 			   (run-hooks 'temp-buffer-show-hook))
-		       (select-window old-selected)
-		       (message "Evaluating...done.  \
-See buffer *Pp Eval Output*.")))
+		       (select-window old-selected)))
 		 (message "%s" (buffer-substring (point-min) (point)))
 		 ))))))
     (with-output-to-temp-buffer "*Pp Eval Output*"
       (pp (car values))
       (with-current-buffer standard-output
 	(emacs-lisp-mode)
-	(setq buffer-read-only nil)
 	(set (make-local-variable 'font-lock-verbose) nil)))))
 
 ;;;###autoload