Commit 45450dd5 authored by Miles Bader's avatar Miles Bader
Browse files

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

parent a584be02
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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment