diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-03-17 04:49:21 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-03-17 04:49:21 +0000 |
| commit | 2de3834bb50c4609d24aeb6e91195ba29c553c9e (patch) | |
| tree | 85da9e20faa8b3a406e75191cc558a740e771f53 /lisp/window.el | |
| parent | ec241f58e0d5d01fc340ff8cf42cf43db5bf22e1 (diff) | |
| download | emacs-2de3834bb50c4609d24aeb6e91195ba29c553c9e.tar.gz | |
(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.
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/window.el b/lisp/window.el index cd043e0d47e..6010f894791 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -278,6 +278,10 @@ or if the window is the only window of its frame." (> (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))))))))) |