From 2bd8a1db5ef40ae3bde8085779fd2d9014403343 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 24 Oct 2000 10:52:22 +0000 Subject: [PATCH] (fit-window-to-buffer): Adjust point of the window buffer, not that of the current buffer. --- lisp/window.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 53d234a3805..92451fb9cd8 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -469,8 +469,9 @@ header-line." ;; 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) (not (bobp))) - (forward-char -1)) + (if (with-current-buffer (window-buffer window) + (and (eobp) (bolp) (not (bobp)))) + (set-window-point window (1- (window-point window)))) (unless (zerop delta) (if (eq window (selected-window)) -- 2.39.2