(compilation-start): Set window start to

point-min if compilation-scroll-output is nil.
This commit is contained in:
Andreas Schwab 2004-04-18 11:04:24 +00:00
parent 5f5d410aa1
commit fe4dda18f0

View file

@ -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