From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Sep 2003 15:25:47 +0000 (+0000)
Subject: (compile-internal): Call compilation-set-window-height
X-Git-Tag: ttn-vms-21-2-B4~8781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfe02f1424a3d154f897722f42ff25f9c3480638;p=emacs.git

(compile-internal): Call compilation-set-window-height
before setting window start.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 8f88bae612e..1aef5012937 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1094,10 +1094,10 @@ Returns the compilation buffer created."
         (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.