Drew Adams <drew.adams at oracle.com>

(pp-eval-expression): Add progress message.  Make buffer writable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98512182cad99f98df83be605b3c6b062c701a26..b103e096e10eb711136b3bfc5ee2124b7fab4f60 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+2007-08-03  Glenn Morris  <rgm@gnu.org>
+
+       * cus-edit.el (customize-apropos): Make the error message indicate
+       what kind of thing the user was trying to customize.
+
+       * net/telnet.el (telnet-mode): Set comint-use-prompt-regexp to t.
+
+       * progmodes/fortran.el (fortran-font-lock-syntactic-keywords): Fix
+       off-by-one error in previous change.
+
+2007-08-03  Drew Adams  <drew.adams@oracle.com>
+
+       * emacs-lisp/pp.el (pp-eval-expression): Add progress message.
+       Make buffer writable.
+
 2007-08-01  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc-math.el (math-sqrt-raw,math-sin-raw-2)

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 21175a03b4d8cc318eba7e216b9f50aafaa6a18f..a5cefff399f0138522f835ed87c59a5eab85c0fb 100644 (file)
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -103,6 +103,7 @@ 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.
@@ -126,13 +127,16 @@ 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)))
+                      (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