procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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
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.