# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 744359906 0
# Node ID 4f8cf717fca0754cf3810dbf8f2bbc2ac3318025
# Parent  4ad99dc50f6f2f5579a1380facc1f321db7c8522
(shrink-window-if-larger-than-buffer): Pass WINDOW to
pos-visible-in-window-p.

diff -r 4ad99dc50f6f -r 4f8cf717fca0 lisp/window.el
--- a/lisp/window.el	Tue Aug 03 05:46:33 1993 +0000
+++ b/lisp/window.el	Tue Aug 03 06:38:26 1993 +0000
@@ -1,6 +1,6 @@
 ;;; window.el --- GNU Emacs window commands aside from those written in C.
 
-;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc.
+;;; Copyright (C) 1985, 1989, 1992, 1993 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 
@@ -158,7 +158,7 @@
 	  (modified (buffer-modified-p))
 	  (buffer (current-buffer)))
       (if (and (< 1 (count-windows))
-	       (pos-visible-in-window-p (point-min)))
+	       (pos-visible-in-window-p (point-min) window))
 	  (unwind-protect
 	      (progn
 		(select-window (or window w))