mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases 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
Show Stats 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))