mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
pos-visible-in-window-p.
This commit is contained in:
Roland McGrath 1993-08-03 06:38:26 +00:00
parent 46f950cab8
commit 5ed8d62f52
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/window.el
View file

@ -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))