Mercurial > emacs
changeset 33537:53c51fd75027
(fit-window-to-buffer): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 16 Nov 2000 06:33:25 +0000 |
| parents | 035e7b097577 |
| children | 3def5b3d0255 |
| files | lisp/window.el |
| diffstat | 1 files changed, 1 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/window.el Thu Nov 16 06:15:55 2000 +0000 +++ b/lisp/window.el Thu Nov 16 06:33:25 2000 +0000 @@ -500,13 +500,11 @@ (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.