Mercurial > emacs

changeset 34079:6316cacc1e16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fit-window-to-buffer): Handle non-nil `truncate-lines'.
author Miles Bader <miles@gnu.org>
date Fri, 01 Dec 2000 08:11:16 +0000
parents ebb2d5e5973e
children 7bd387e83c67
files lisp/window.el
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/window.el	Fri Dec 01 06:20:04 2000 +0000
+++ b/lisp/window.el	Fri Dec 01 08:11:16 2000 +0000
@@ -508,9 +508,17 @@
       (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))