diff options
| author | Andreas Schwab <schwab@suse.de> | 2004-04-18 11:04:24 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2004-04-18 11:04:24 +0000 |
| commit | fe4dda18f08ffde1689f92696775ae777d6d4edd (patch) | |
| tree | 116b2c2bb26a9884a173456330d933cb503291a5 /lisp/progmodes/compile.el | |
| parent | 5f5d410aa19f840c08bcaab3813d98a8bf2c661c (diff) | |
| download | emacs-fe4dda18f08ffde1689f92696775ae777d6d4edd.tar.gz | |
(compilation-start): Set window start to
point-min if compilation-scroll-output is nil.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 71946dd02f5..f75f2763e11 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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 |