Mercurial > emacs

changeset 54968:1eccd1d7d152

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-start): Set window start to point-min if compilation-scroll-output is nil.
author Andreas Schwab <schwab@suse.de>
date Sun, 18 Apr 2004 11:04:24 +0000
parents 8456893f6790
children 019583986c66
files lisp/progmodes/compile.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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