# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1082286264 0
# Node ID 1eccd1d7d1524f219a640c10a4a2c87643cf513c
# Parent  8456893f6790ab569cab83a3951b855a8be36e8d
(compilation-start): Set window start to
point-min if compilation-scroll-output is nil.

diff -r 8456893f6790 -r 1eccd1d7d152 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Apr 18 10:31:29 2004 +0000
+++ b/lisp/progmodes/compile.el	Sun Apr 18 11:04:24 2004 +0000
@@ -913,7 +913,9 @@
 	   'compilation-revert-buffer)
       (set-window-start outwin (point-min))
       (or (eq outwin (selected-window))
-	  (set-window-point outwin (point)))
+	  (set-window-point outwin (if compilation-scroll-output
+				       (point)
+				     (point-min))))
       ;; The setup function is called before compilation-set-window-height
       ;; so it can set the compilation-window-height buffer locally.
       (if compilation-process-setup-function