(compilation-start): Set window start to
point-min if compilation-scroll-output is nil.
This commit is contained in:
parent
5f5d410aa1
commit
fe4dda18f0
1 changed files with 3 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue