diff options
| author | Miles Bader <miles@gnu.org> | 2007-08-03 05:27:05 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-08-03 05:27:05 +0000 |
| commit | ba55f217f5620668f4205f5bff83ae51abf584f8 (patch) | |
| tree | c2e34ea196994c05b572f8fb42734b7d56a55be4 /lisp/emacs-lisp/pp.el | |
| parent | e145a7fe95fb8f97407d125f94653ef95e42696d (diff) | |
| parent | 4211679b08d6a9c369cb22f085b9bb61d5d4eeda (diff) | |
| download | emacs-ba55f217f5620668f4205f5bff83ae51abf584f8.tar.gz emacs-ba55f217f5620668f4205f5bff83ae51abf584f8.tar.bz2 emacs-ba55f217f5620668f4205f5bff83ae51abf584f8.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 839-842)
- Update from CVS
- Change capitalization of VC backend names for new backends
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-240
Diffstat (limited to 'lisp/emacs-lisp/pp.el')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 21175a03b4d..a5cefff399f 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 |