Mercurial > emacs
comparison lisp/progmodes/compile.el @ 54968:1eccd1d7d152
(compilation-start): Set window start to
point-min if compilation-scroll-output is nil.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 18 Apr 2004 11:04:24 +0000 |
| parents | 2f96b3c58e6d |
| children | c4901d9dd86a |
comparison
equal
deleted
inserted
replaced
| 54967:8456893f6790 | 54968:1eccd1d7d152 |
|---|---|
| 911 (list command mode name-function highlight-regexp)) | 911 (list command mode name-function highlight-regexp)) |
| 912 (set (make-local-variable 'revert-buffer-function) | 912 (set (make-local-variable 'revert-buffer-function) |
| 913 'compilation-revert-buffer) | 913 'compilation-revert-buffer) |
| 914 (set-window-start outwin (point-min)) | 914 (set-window-start outwin (point-min)) |
| 915 (or (eq outwin (selected-window)) | 915 (or (eq outwin (selected-window)) |
| 916 (set-window-point outwin (point))) | 916 (set-window-point outwin (if compilation-scroll-output |
| 917 (point) | |
| 918 (point-min)))) | |
| 917 ;; The setup function is called before compilation-set-window-height | 919 ;; The setup function is called before compilation-set-window-height |
| 918 ;; so it can set the compilation-window-height buffer locally. | 920 ;; so it can set the compilation-window-height buffer locally. |
| 919 (if compilation-process-setup-function | 921 (if compilation-process-setup-function |
| 920 (funcall compilation-process-setup-function)) | 922 (funcall compilation-process-setup-function)) |
| 921 (compilation-set-window-height outwin) | 923 (compilation-set-window-height outwin) |