[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/pp.el, v [EMACS_22_BASE]

From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/pp.el, v [EMACS_22_BASE]
Date: Fri, 03 Aug 2007 03:19:08 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       07/08/03 03:19:08

Index: pp.el
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/pp.el,v
retrieving revision
retrieving revision
diff -u -b -r1.33.2.2 -r1.33.2.3
--- pp.el       3 Aug 2007 03:14:34 -0000
+++ pp.el       3 Aug 2007 03:19:07 -0000
@@ -103,7 +103,6 @@
    (list (read-from-minibuffer "Eval: " nil read-expression-map t
-  (message "Evaluating...")
   (setq values (cons (eval expression) values))
   (let* ((old-show-function temp-buffer-show-function)
         ;; Use this function to display the buffer.
@@ -127,16 +126,13 @@
                           (select-window window)
                           (run-hooks 'temp-buffer-show-hook))
-                      (select-window old-selected)
-                      (message "Evaluating...done.  \
-See buffer *Pp Eval Output*.")))
+                      (select-window old-selected)))
                 (message "%s" (buffer-substring (point-min) (point)))
     (with-output-to-temp-buffer "*Pp Eval Output*"
       (pp (car values))
       (with-current-buffer standard-output
-       (setq buffer-read-only nil)
        (set (make-local-variable 'font-lock-verbose) nil)))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]