From edb08287fbcf863b53bd55cba3f39b7430a8b43c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 16 Nov 2000 06:33:25 +0000 Subject: [PATCH] (fit-window-to-buffer): Fix previous change. --- lisp/window.el | 4 +--- 1 file changed, 1 insertion(+), 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. -- 2.39.5