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

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.