diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-11-16 06:33:25 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-11-16 06:33:25 +0000 |
| commit | edb08287fbcf863b53bd55cba3f39b7430a8b43c (patch) | |
| tree | 5074acfef65caa931665b50f7584b7ff29089b70 /lisp | |
| parent | b1491763bb730b84c0d8a846908a9d241921e061 (diff) | |
| download | emacs-edb08287fbcf863b53bd55cba3f39b7430a8b43c.tar.gz emacs-edb08287fbcf863b53bd55cba3f39b7430a8b43c.tar.bz2 emacs-edb08287fbcf863b53bd55cba3f39b7430a8b43c.zip | |
(fit-window-to-buffer): Fix previous change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/window.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/window.el b/lisp/window.el index 59c946ee685..8d646ca3113 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -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. |