[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/pp.el, v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       07/08/03 03:14:34

Index: pp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/pp.el,v
retrieving revision 1.33.2.1
retrieving revision 1.33.2.2
diff -u -b -r1.33.2.1 -r1.33.2.2
--- pp.el       25 Jul 2007 04:09:43 -0000      1.33.2.1
+++ pp.el       3 Aug 2007 03:14:34 -0000       1.33.2.2
@@ -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