From: Miles Bader <miles@gnu.org>
Date: Fri, 1 Dec 2000 08:11:55 +0000 (+0000)
Subject: (fit-window-to-buffer): Handle non-nil `truncate-lines'.
X-Git-Tag: emacs-pretest-21.0.93~319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45450dd56d90d4c3682af2ed3e42ddba6977d3fe;p=emacs.git

(fit-window-to-buffer): Handle non-nil `truncate-lines'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 67bd785e5fb..139361e0b52 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-01  Miles Bader  <miles@gnu.org>
+
+	* window.el (fit-window-to-buffer): Handle non-nil `truncate-lines'.
+
 2000-12-01  Kenichi Handa  <handa@etl.go.jp>
 
 	* international/mule-diag.el (describe-char-after): Fix typo.
diff --git a/lisp/window.el b/lisp/window.el
index 86cb45f92e5..60ebba7f1f0 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -508,9 +508,17 @@ header-line."
       (let ((end (with-current-buffer buf
 		   (save-excursion
 		     (goto-char (point-max))
-		     (if (and (bolp) (not (bobp)))
-			 (1- (point))
-		       (point))))))
+		     (when (and (bolp) (not (bobp)))
+		       ;; Don't include final newline
+		       (backward-char 1))
+		     (when truncate-lines
+		       ;; If line-wrapping is turned off, test the
+		       ;; beginning of the last line for visibility
+		       ;; instead of the end, as the end of the line
+		       ;; could be invisible by virtue of extending past
+		       ;; the edge of the window.
+		       (forward-line 0))
+		     (point)))))
 	(set-window-vscroll window 0)
 	(while (and (< desired-height max-height)
 		    (= desired-height (window-height window))