diff options
| author | Roland McGrath | 1993-08-03 06:38:26 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-08-03 06:38:26 +0000 |
| commit | 5ed8d62f52b7d6bbbd01e2ba83ad46ccbe92ddc9 (patch) | |
| tree | 054b8e1d369b3ba876c4267e150474f0959ae29c | |
| parent | 46f950cab852ffab33a6d46e4894e6ba4e575945 (diff) | |
| download | emacs-5ed8d62f52b7d6bbbd01e2ba83ad46ccbe92ddc9.tar.gz emacs-5ed8d62f52b7d6bbbd01e2ba83ad46ccbe92ddc9.zip | |
(shrink-window-if-larger-than-buffer): Pass WINDOW to
pos-visible-in-window-p.
| -rw-r--r-- | lisp/window.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/window.el b/lisp/window.el index 1eda0ba960d..5f60dd72133 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; window.el --- GNU Emacs window commands aside from those written in C. | 1 | ;;; window.el --- GNU Emacs window commands aside from those written in C. |
| 2 | 2 | ||
| 3 | ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc. | 3 | ;;; Copyright (C) 1985, 1989, 1992, 1993 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | 6 | ||
| @@ -158,7 +158,7 @@ or if the window is the only window of its frame." | |||
| 158 | (modified (buffer-modified-p)) | 158 | (modified (buffer-modified-p)) |
| 159 | (buffer (current-buffer))) | 159 | (buffer (current-buffer))) |
| 160 | (if (and (< 1 (count-windows)) | 160 | (if (and (< 1 (count-windows)) |
| 161 | (pos-visible-in-window-p (point-min))) | 161 | (pos-visible-in-window-p (point-min) window)) |
| 162 | (unwind-protect | 162 | (unwind-protect |
| 163 | (progn | 163 | (progn |
| 164 | (select-window (or window w)) | 164 | (select-window (or window w)) |