(shrink-window-if-larger-than-buffer): Pass WINDOW to

pos-visible-in-window-p.

diff --git a/lisp/window.el b/lisp/window.el
index 1eda0ba960d56dc1221d82b364a37f05a423ea85..5f60dd72133e7d8a0efabc914ee7c30a8c58a8b2 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -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 @@ or if the window is the only window of its frame."
          (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))