Mercurial > emacs

changeset 78398:cb21861af59b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert previous change, which was only supposed to be in trunk.
author Glenn Morris <rgm@gnu.org>
date Fri, 03 Aug 2007 03:19:07 +0000
parents e9b6279cf211
children 42a0615ad1fa
files lisp/emacs-lisp/pp.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/pp.el	Fri Aug 03 03:14:34 2007 +0000
+++ b/lisp/emacs-lisp/pp.el	Fri Aug 03 03:19:07 2007 +0000
@@ -103,7 +103,6 @@
   (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 @@
 			 (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