From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 15 Aug 1999 04:56:33 +0000 (+0000)
Subject: (shrink-window-if-larger-than-buffer): Don't try to
X-Git-Tag: emacs-pretest-21.0.90~7178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f848e2e028ca57179e318a3cff344e2de87ac880;p=emacs.git

(shrink-window-if-larger-than-buffer): Don't try to
back up from beginning of buffer.
---

diff --git a/lisp/window.el b/lisp/window.el
index 6010f894791..c26b79af485 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -280,7 +280,7 @@ or if the window is the only window of its frame."
                 (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))
+	    (when (and (eobp) (bolp) (not (bobp)))
 	      (forward-char -1))
             (when (> window-height (1+ text-height))
               (shrink-window