From: Kenichi Handa <handa@m17n.org>
Date: Thu, 16 Nov 2000 06:33:25 +0000 (+0000)
Subject: (fit-window-to-buffer): Fix previous change.
X-Git-Tag: emacs-pretest-21.0.90~30
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=edb08287fbcf863b53bd55cba3f39b7430a8b43c;p=emacs.git

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

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.