diff options
| author | Glenn Morris <[email protected]> | 2007-08-03 03:15:33 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2007-08-03 03:15:33 +0000 |
| commit | 52f55ab02b3f9b97a3894b7651b9ffffa2755eba (patch) | |
| tree | 509d7ea1d6549b437e19e54572e76873b9b97fe3 | |
| parent | 17cc361e49c954651e1417cef9cb20fcac293876 (diff) | |
Drew Adams <drew.adams at oracle.com>
(pp-eval-expression): Add progress message. Make buffer writable.
| -rw-r--r-- | lisp/ChangeLog | 15 | ||||
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 6 |
2 files changed, 20 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 98512182ca..b103e096e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,18 @@ +2007-08-03 Glenn Morris <[email protected]> + + * 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 <[email protected]> + + * emacs-lisp/pp.el (pp-eval-expression): Add progress message. + Make buffer writable. + 2007-08-01 Jay Belanger <[email protected]> * 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 21175a03b4..a5cefff399 100644 --- 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 |