From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 22 Mar 2004 15:32:24 +0000 (+0000)
Subject: (pp-eval-expression): Simplify.
X-Git-Tag: ttn-vms-21-2-B4~7149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eaf33a1780c985356d8bdd0830180a20f36e546f;p=emacs.git

(pp-eval-expression): Simplify.
---

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 85ec7dbae78..c93868859f0 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -1,6 +1,6 @@
 ;;; pp.el --- pretty printer for Emacs Lisp
 
-;; Copyright (C) 1989, 1993, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1993, 2001, 2004  Free Software Foundation, Inc.
 
 ;; Author: Randal Schwartz <merlyn@stonehenge.com>
 ;; Keywords: lisp
@@ -120,12 +120,10 @@ in the variable `values'."
 		 (message "%s" (buffer-substring (point-min) (point)))
 		 ))))))
     (with-output-to-temp-buffer "*Pp Eval Output*"
-      (pp (car values)))
-    (save-excursion
-      (set-buffer "*Pp Eval Output*")
-      (emacs-lisp-mode)
-      (make-local-variable 'font-lock-verbose)
-      (setq font-lock-verbose nil))))
+      (pp (car values))
+      (with-current-buffer standard-output
+	(emacs-lisp-mode)
+	(set (make-local-variable 'font-lock-verbose) nil)))))
 
 ;;;###autoload
 (defun pp-eval-last-sexp (arg)