From: Andreas Schwab <schwab@suse.de>
Date: Sun, 18 Apr 2004 11:04:24 +0000 (+0000)
Subject: (compilation-start): Set window start to
X-Git-Tag: ttn-vms-21-2-B4~6747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe4dda18f08ffde1689f92696775ae777d6d4edd;p=emacs.git

(compilation-start): Set window start to
point-min if compilation-scroll-output is nil.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 71946dd02f5..f75f2763e11 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -913,7 +913,9 @@ Returns the compilation buffer created."
 	   '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