# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1064244347 0
# Node ID 7dbcd805c2ee07130ce50f645fc8fd42efa7142f
# Parent  e4693bed89ad4f5ebaed14cb3457bbdc8c9c5b32
(compile-internal): Call compilation-set-window-height
before setting window start.

diff -r e4693bed89ad -r 7dbcd805c2ee lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Sep 22 15:23:53 2003 +0000
+++ b/lisp/progmodes/compile.el	Mon Sep 22 15:25:47 2003 +0000
@@ -1094,10 +1094,10 @@
         (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
 	(setq default-directory thisdir
 	      compilation-directory-stack (list default-directory))
+	(compilation-set-window-height outwin)
 	(set-window-start outwin (point-min))
 	(or (eq outwin (selected-window))
 	    (set-window-point outwin (point-min)))
-	(compilation-set-window-height outwin)
 	(if compilation-process-setup-function
 	    (funcall compilation-process-setup-function))
 	;; Start the compilation.