mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 18:00:40 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
before setting window start.
This commit is contained in:
Richard M. Stallman 2003-09-22 15:25:47 +00:00
parent a94d391acd
commit dfe02f1424
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/compile.el
View file

@ -1094,10 +1094,10 @@ Returns the compilation buffer created."
(set (make-local-variable 'lazy-lock-defer-on-scrolling) t) (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
(setq default-directory thisdir (setq default-directory thisdir
compilation-directory-stack (list default-directory)) compilation-directory-stack (list default-directory))
(compilation-set-window-height outwin)
(set-window-start outwin (point-min)) (set-window-start outwin (point-min))
(or (eq outwin (selected-window)) (or (eq outwin (selected-window))
(set-window-point outwin (point-min))) (set-window-point outwin (point-min)))
(compilation-set-window-height outwin)
(if compilation-process-setup-function (if compilation-process-setup-function
(funcall compilation-process-setup-function)) (funcall compilation-process-setup-function))
;; Start the compilation. ;; Start the compilation.