# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 974356405 0
# Node ID 53c51fd750273000b1f43b9c76d27f8ca50ee18a
# Parent  035e7b097577fa2c19b33d5cc39d0dd2dcb50147
(fit-window-to-buffer): Fix previous change.

diff -r 035e7b097577 -r 53c51fd75027 lisp/window.el
--- 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.