diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index e85af18bc6c..d8e8f6e3bd5 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -21,6 +21,11 @@ | |||
| 21 | 21 | ||
| 22 | (provide 'compile) | 22 | (provide 'compile) |
| 23 | 23 | ||
| 24 | ;;;###autoload | ||
| 25 | (defvar compilation-mode-hook nil | ||
| 26 | "*List of hook functions run by compilation-mode (see `run-hooks').") | ||
| 27 | |||
| 28 | ;;;###autoload | ||
| 24 | (defconst compilation-window-height nil | 29 | (defconst compilation-window-height nil |
| 25 | "*Number of lines in a compilation window. If nil, use Emacs default.") | 30 | "*Number of lines in a compilation window. If nil, use Emacs default.") |
| 26 | 31 | ||
| @@ -101,8 +106,9 @@ are found.") | |||
| 101 | compilation. If REGEXP matches, the FILE-IDX'th subexpression gives the file | 106 | compilation. If REGEXP matches, the FILE-IDX'th subexpression gives the file |
| 102 | name, and the LINE-IDX'th subexpression gives the line number.") | 107 | name, and the LINE-IDX'th subexpression gives the line number.") |
| 103 | 108 | ||
| 109 | ;;;###autoload | ||
| 104 | (defvar compilation-search-path '(nil) | 110 | (defvar compilation-search-path '(nil) |
| 105 | "List of directories to search for source files named in error messages. | 111 | "*List of directories to search for source files named in error messages. |
| 106 | Elements should be directory names, not file names of directories. | 112 | Elements should be directory names, not file names of directories. |
| 107 | nil as an element means to try the default directory.") | 113 | nil as an element means to try the default directory.") |
| 108 | 114 | ||
| @@ -299,7 +305,9 @@ means the default). The defaults for these variables are the global values of | |||
| 299 | "Major mode for compilation log buffers. | 305 | "Major mode for compilation log buffers. |
| 300 | \\<compilation-mode-map>To visit the source for a line-numbered error, | 306 | \\<compilation-mode-map>To visit the source for a line-numbered error, |
| 301 | move point to the error message line and type \\[compile-goto-error]. | 307 | move point to the error message line and type \\[compile-goto-error]. |
| 302 | To kill the compilation, type \\[kill-compilation]." | 308 | To kill the compilation, type \\[kill-compilation]. |
| 309 | |||
| 310 | Runs `compilation-mode-hook' with `run-hooks' (which see)." | ||
| 303 | (interactive) | 311 | (interactive) |
| 304 | (fundamental-mode) | 312 | (fundamental-mode) |
| 305 | (use-local-map compilation-mode-map) | 313 | (use-local-map compilation-mode-map) |
| @@ -312,7 +320,8 @@ To kill the compilation, type \\[kill-compilation]." | |||
| 312 | (set (make-local-variable 'compilation-old-error-list) nil) | 320 | (set (make-local-variable 'compilation-old-error-list) nil) |
| 313 | (set (make-local-variable 'compilation-parsing-end) 1) | 321 | (set (make-local-variable 'compilation-parsing-end) 1) |
| 314 | (set (make-local-variable 'compilation-directory-stack) nil) | 322 | (set (make-local-variable 'compilation-directory-stack) nil) |
| 315 | (setq compilation-last-buffer (current-buffer))) | 323 | (setq compilation-last-buffer (current-buffer)) |
| 324 | (run-hooks 'compilation-mode-hook)) | ||
| 316 | 325 | ||
| 317 | ;; Called when compilation process changes state. | 326 | ;; Called when compilation process changes state. |
| 318 | (defun compilation-sentinel (proc msg) | 327 | (defun compilation-sentinel (proc msg) |