Mercurial > emacs

changeset 78397:e9b6279cf211

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Drew Adams <drew.adams at oracle.com> (pp-eval-expression): Add progress message. Make buffer writable.
author Glenn Morris <rgm@gnu.org>
date Fri, 03 Aug 2007 03:14:34 +0000
parents 8669997a4162
children cb21861af59b
files lisp/emacs-lisp/pp.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/pp.el	Thu Aug 02 17:56:38 2007 +0000
+++ b/lisp/emacs-lisp/pp.el	Fri Aug 03 03:14:34 2007 +0000
@@ -103,6 +103,7 @@
   (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.
@@ -126,13 +127,16 @@
 			 (progn
 			   (select-window window)
 			   (run-hooks 'temp-buffer-show-hook))
-		       (select-window old-selected)))
+		       (select-window old-selected)
+		       (message "Evaluating...done.  \
+See buffer *Pp Eval Output*.")))
 		 (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