(compilation-start): Set window start to

point-min if compilation-scroll-output is nil.

1 files changed, 3 insertions, 1 deletions

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