Mercurial > emacs

comparison lisp/window.el @ 4436:4f8cf717fca0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shrink-window-if-larger-than-buffer): Pass WINDOW to pos-visible-in-window-p.
author Roland McGrath <roland@gnu.org>
date Tue, 03 Aug 1993 06:38:26 +0000
parents 69e5c2373d37
children 0c0b00572d96
comparison
equal deleted inserted replaced
4435:4ad99dc50f6f 4436:4f8cf717fca0
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
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
156 (window-min-height 0) 156 (window-min-height 0)
157 (buffer-read-only nil) 157 (buffer-read-only nil)
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))
165 (goto-char (point-min)) 165 (goto-char (point-min))
166 (while (pos-visible-in-window-p 166 (while (pos-visible-in-window-p