From fe4dda18f08ffde1689f92696775ae777d6d4edd Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 18 Apr 2004 11:04:24 +0000 Subject: [PATCH] (compilation-start): Set window start to point-min if compilation-scroll-output is nil. --- lisp/progmodes/compile.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2