From: Kenichi Handa <handa@m17n.org>
Date: Tue, 24 Oct 2000 10:52:22 +0000 (+0000)
Subject: (fit-window-to-buffer): Adjust point of the window buffer, not that of
X-Git-Tag: emacs-pretest-21.0.90~632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bd8a1db5ef40ae3bde8085779fd2d9014403343;p=emacs.git

(fit-window-to-buffer): Adjust point of the window buffer, not that of
the current buffer.
---

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))