Mercurial > emacs
comparison lisp/progmodes/compile.el @ 474:c3bbd755b7da
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 21 Dec 1991 09:14:03 +0000 |
| parents | 21a228b6a238 |
| children | 505a9721e442 |
comparison
equal
deleted
inserted
replaced
| 473:999d0b38694e | 474:c3bbd755b7da |
|---|---|
| 43 "Function to call (with no args) to parse error messages from a compilation. | 43 "Function to call (with no args) to parse error messages from a compilation. |
| 44 It should read in the source files which have errors and set | 44 It should read in the source files which have errors and set |
| 45 `compilation-error-list' to a list with an element for each error message | 45 `compilation-error-list' to a list with an element for each error message |
| 46 found. See that variable for more info.") | 46 found. See that variable for more info.") |
| 47 | 47 |
| 48 ;;;###autoload | |
| 48 (defvar compilation-buffer-name-function nil | 49 (defvar compilation-buffer-name-function nil |
| 49 "Function to call with one argument, the name of the major mode of the | 50 "*Function to call with one argument, the name of the major mode of the |
| 50 compilation buffer, to give the buffer a name. It should return a string. | 51 compilation buffer, to give the buffer a name. It should return a string. |
| 51 If nil, the name \"*compilation*\" is used for compilation buffers, | 52 If nil, the name \"*compilation*\" is used for compilation buffers, |
| 52 and the name \"*grep*\" is used for grep buffers. | 53 and the name \"*grep*\" is used for grep buffers. |
| 53 \(Actually, the name (concat "*" (downcase major-mode) "*") is used.)") | 54 \(Actually, the name (concat \"*\" (downcase major-mode) \"*\") is used.)") |
| 54 | 55 |
| 56 ;;;###autoload | |
| 55 (defvar compilation-finish-function nil | 57 (defvar compilation-finish-function nil |
| 56 "Function to call when a compilation process finishes. | 58 "*Function to call when a compilation process finishes. |
| 57 It is called with two arguments: the compilation buffer, and a string | 59 It is called with two arguments: the compilation buffer, and a string |
| 58 describing how the process finished.") | 60 describing how the process finished.") |
| 59 | 61 |
| 60 (defvar compilation-last-buffer nil | 62 (defvar compilation-last-buffer nil |
| 61 "The buffer in which the last compilation was started, | 63 "The buffer in which the last compilation was started, |
| 277 (select-window outwin) | 279 (select-window outwin) |
| 278 (enlarge-window (- compilation-window-height | 280 (enlarge-window (- compilation-window-height |
| 279 (window-height)))) | 281 (window-height)))) |
| 280 (select-window w)))) | 282 (select-window w)))) |
| 281 ;; Start the compilation. | 283 ;; Start the compilation. |
| 282 (start-process-shell-command (downcase mode-name) outbuf command) | 284 (set-process-sentinel (start-process-shell-command (downcase mode-name) |
| 283 (set-process-sentinel (get-buffer-process outbuf) | 285 outbuf |
| 286 command) | |
| 284 'compilation-sentinel)) | 287 'compilation-sentinel)) |
| 285 ;; Make it so the next C-x ` will use this buffer. | 288 ;; Make it so the next C-x ` will use this buffer. |
| 286 (setq compilation-last-buffer outbuf))) | 289 (setq compilation-last-buffer outbuf))) |
| 287 | 290 |
| 288 (defvar compilation-mode-map | 291 (defvar compilation-mode-map |