# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 921646161 0
# Node ID 46906de4c9688a02fe2b8ee267a28c817e14d353
# Parent  45b77df0b5acb7a4e678fea89196603d09e7a372
(shrink-window-if-larger-than-buffer):
Don't try to redisplay with the cursor at the end
on its own line--that would force a scroll and spoil things.

diff -r 45b77df0b5ac -r 46906de4c968 lisp/window.el
--- a/lisp/window.el	Tue Mar 16 14:18:40 1999 +0000
+++ b/lisp/window.el	Wed Mar 17 04:49:21 1999 +0000
@@ -278,6 +278,10 @@
                    (> (nth 1 edges) (cdr (assq 'menu-bar-lines params)))))
           (let ((text-height (window-buffer-height window))
                 (window-height (window-height)))
+	    ;; Don't try to redisplay with the cursor at the end
+	    ;; on its own line--that would force a scroll and spoil things.
+	    (when (and (eobp) (bolp))
+	      (forward-char -1))
             (when (> window-height (1+ text-height))
               (shrink-window
                (- window-height (max (1+ text-height) window-min-height)))))))))