# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799807122 0
# Node ID 084c36d466155f3a8fa8390ba0d842cc9a8dfab4
# Parent  230cc184d96b43ba165018783401a99dd336009c
(pp-eval-expression): Update use of temp-buffer-show-function.

diff -r 230cc184d96b -r 084c36d46615 lisp/emacs-lisp/pp.el
--- a/lisp/emacs-lisp/pp.el	Sat May 06 23:08:47 1995 +0000
+++ b/lisp/emacs-lisp/pp.el	Sun May 07 00:38:42 1995 +0000
@@ -103,13 +103,11 @@
 value."
   (interactive "xPp-eval: ")
   (setq values (cons (eval expression) values))
-  (let* ((old-show-hook
-	  (or (let ((sym (if (> (string-to-int emacs-version) 18)
-			     'temp-buffer-show-function
-			   'temp-buffer-show-hook)))
-		(and (boundp 'sym) (symbol-value sym)))
-	      'display-buffer))
-	 (temp-buffer-show-hook
+  (let* ((old-show-function temp-buffer-show-function)
+	 ;; Use this function to display the buffer.
+	 ;; This function either decides not to display it at all
+	 ;; or displays it in the usual way.
+	 (temp-buffer-show-function
 	  (function
 	   (lambda (buf)
 	     (save-excursion
@@ -118,13 +116,18 @@
 	       (end-of-line 1)
 	       (if (or (< (1+ (point)) (point-max))
 		       (>= (- (point) (point-min)) (screen-width)))
-		   (progn
+		   (let ((temp-buffer-show-function old-show-function)
+			 (old-selected (selected-window))
+			 (window (display-buffer buf)))
 		     (goto-char (point-min)) ; expected by some hooks ...
-		     (funcall old-show-hook buf))
+		     (make-frame-visible (window-frame window))
+		     (unwind-protect
+			 (progn
+			   (select-window window)
+			   (run-hooks 'temp-buffer-show-hook))
+		       (select-window old-selected)))
 		 (message "%s" (buffer-substring (point-min) (point)))
-		 (delete-windows-on buf) ; no need to kill it
-		 )))))
-	 (temp-buffer-show-function temp-buffer-show-hook)) ; emacs19 name
+		 ))))))
     (with-output-to-temp-buffer "*Pp Eval Output*"
       (pp (car values)))
     (save-excursion