mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

Drew Adams <drew.adams at oracle.com>

Browse Source 
(pp-eval-expression): Add progress message.  Make buffer writable.
This commit is contained in:
Glenn Morris 2007-08-03 03:14:34 +00:00
parent 7d7d10b874
commit fd2a7b94b3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/emacs-lisp/pp.el
View File

@ -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