Commit dfe02f14 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compile-internal): Call compilation-set-window-height

before setting window start.
parent a94d391a
......@@ -1094,10 +1094,10 @@ Returns the compilation buffer created."
(set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
(setq default-directory thisdir
compilation-directory-stack (list default-directory))
(compilation-set-window-height outwin)
(set-window-start outwin (point-min))
(or (eq outwin (selected-window))
(set-window-point outwin (point-min)))
(compilation-set-window-height outwin)
(if compilation-process-setup-function
(funcall compilation-process-setup-function))
;; Start the compilation.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment