Mercurial > emacs
comparison lisp/progmodes/compile.el @ 64926:37347aa3aaae
(compilation-start): Add the line "Compilation started" with compilation
start time.
(compilation-mode-font-lock-keywords): Add `started' to keywords.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 12 Aug 2005 10:17:17 +0000 |
| parents | 2838cf662e70 |
| children | 0734dceb92d1 |
comparison
equal
deleted
inserted
replaced
| 64925:2aaaa5e2d539 | 64926:37347aa3aaae |
|---|---|
| 380 (2 (compilation-face '(4 . 3)))) | 380 (2 (compilation-face '(4 . 3)))) |
| 381 ;; Command output lines. Recognize `make[n]:' lines too. | 381 ;; Command output lines. Recognize `make[n]:' lines too. |
| 382 ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" | 382 ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" |
| 383 (1 font-lock-function-name-face) (3 compilation-line-face nil t)) | 383 (1 font-lock-function-name-face) (3 compilation-line-face nil t)) |
| 384 (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) | 384 (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) |
| 385 ("^Compilation finished" . compilation-info-face) | 385 ("^Compilation \\(finish\\|start\\)ed" . compilation-info-face) |
| 386 ("^Compilation exited abnormally" . compilation-error-face)) | 386 ("^Compilation exited abnormally" . compilation-error-face)) |
| 387 "Additional things to highlight in Compilation mode. | 387 "Additional things to highlight in Compilation mode. |
| 388 This gets tacked on the end of the generated expressions.") | 388 This gets tacked on the end of the generated expressions.") |
| 389 | 389 |
| 390 (defvar compilation-highlight-regexp t | 390 (defvar compilation-highlight-regexp t |
| 968 (set (make-local-variable 'compilation-highlight-regexp) | 968 (set (make-local-variable 'compilation-highlight-regexp) |
| 969 highlight-regexp)) | 969 highlight-regexp)) |
| 970 ;; Output a mode setter, for saving and later reloading this buffer. | 970 ;; Output a mode setter, for saving and later reloading this buffer. |
| 971 (insert "-*- mode: " name-of-mode | 971 (insert "-*- mode: " name-of-mode |
| 972 "; default-directory: " (prin1-to-string default-directory) | 972 "; default-directory: " (prin1-to-string default-directory) |
| 973 " -*-\n" command "\n") | 973 " -*-\n" |
| 974 (format "%s started at %s\n" | |
| 975 (capitalize name-of-mode) | |
| 976 (format-time-string "%a %b %d %H:%M:%S")) | |
| 977 command "\n") | |
| 974 (setq thisdir default-directory)) | 978 (setq thisdir default-directory)) |
| 975 (set-buffer-modified-p nil)) | 979 (set-buffer-modified-p nil)) |
| 976 ;; If we're already in the compilation buffer, go to the end | 980 ;; If we're already in the compilation buffer, go to the end |
| 977 ;; of the buffer, so point will track the compilation output. | 981 ;; of the buffer, so point will track the compilation output. |
| 978 (if (eq outbuf (current-buffer)) | 982 (if (eq outbuf (current-buffer)) |