mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(fit-window-to-buffer): Fix previous change.

Browse Source
This commit is contained in:
Kenichi Handa 2000-11-16 06:33:25 +00:00
parent b1491763bb
commit edb08287fb
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/window.el
View File

@ -500,13 +500,11 @@ header-line."
(1- (point))
(point))))))
(set-window-vscroll window 0)
(prog1
(list desired-height max-height)
(while (and (< desired-height max-height)
(= desired-height (window-height window))
(not (pos-visible-in-window-p end window t)))
(enlarge-window 1)
(setq desired-height (1+ desired-height))))))))
(setq desired-height (1+ desired-height)))))))
(defun shrink-window-if-larger-than-buffer (&optional window)
"Shrink the WINDOW to be as small as possible to display its contents.