summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog15
-rw-r--r--lisp/emacs-lisp/pp.el6
2 files changed, 20 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98512182cad..b103e096e10 100644
--- 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 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