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 <>
* window.el (fit-window-to-buffer): Handle non-nil `truncate-lines'.
2000-12-01 Kenichi Handa <>
* international/mule-diag.el (describe-char-after): Fix typo.
......@@ -508,9 +508,17 @@ header-line."
(let ((end (with-current-buffer buf
(goto-char (point-max))
(if (and (bolp) (not (bobp)))
(1- (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))
(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