Mercurial > emacs
comparison lisp/progmodes/compile.el @ 52570:7dbcd805c2ee
(compile-internal): Call compilation-set-window-height
before setting window start.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Sep 2003 15:25:47 +0000 |
| parents | 695cf19ef79e |
| children | 8a19599151b0 |
comparison
equal
deleted
inserted
replaced
| 52569:e4693bed89ad | 52570:7dbcd805c2ee |
|---|---|
| 1092 ;; This proves a good idea if the buffer's going to scroll | 1092 ;; This proves a good idea if the buffer's going to scroll |
| 1093 ;; with lazy-lock on. | 1093 ;; with lazy-lock on. |
| 1094 (set (make-local-variable 'lazy-lock-defer-on-scrolling) t) | 1094 (set (make-local-variable 'lazy-lock-defer-on-scrolling) t) |
| 1095 (setq default-directory thisdir | 1095 (setq default-directory thisdir |
| 1096 compilation-directory-stack (list default-directory)) | 1096 compilation-directory-stack (list default-directory)) |
| 1097 (compilation-set-window-height outwin) | |
| 1097 (set-window-start outwin (point-min)) | 1098 (set-window-start outwin (point-min)) |
| 1098 (or (eq outwin (selected-window)) | 1099 (or (eq outwin (selected-window)) |
| 1099 (set-window-point outwin (point-min))) | 1100 (set-window-point outwin (point-min))) |
| 1100 (compilation-set-window-height outwin) | |
| 1101 (if compilation-process-setup-function | 1101 (if compilation-process-setup-function |
| 1102 (funcall compilation-process-setup-function)) | 1102 (funcall compilation-process-setup-function)) |
| 1103 ;; Start the compilation. | 1103 ;; Start the compilation. |
| 1104 (if (not no-async) | 1104 (if (not no-async) |
| 1105 (let* ((process-environment | 1105 (let* ((process-environment |