382 |
("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" |
("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" |
383 |
(1 font-lock-function-name-face) (3 compilation-line-face nil t)) |
(1 font-lock-function-name-face) (3 compilation-line-face nil t)) |
384 |
(" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) |
(" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) |
385 |
("^Compilation finished" . compilation-info-face) |
("^Compilation \\(finish\\|start\\)ed" . compilation-info-face) |
386 |
("^Compilation exited abnormally" . compilation-error-face)) |
("^Compilation exited abnormally" . compilation-error-face)) |
387 |
"Additional things to highlight in Compilation mode. |
"Additional things to highlight in Compilation mode. |
388 |
This gets tacked on the end of the generated expressions.") |
This gets tacked on the end of the generated expressions.") |
970 |
;; Output a mode setter, for saving and later reloading this buffer. |
;; Output a mode setter, for saving and later reloading this buffer. |
971 |
(insert "-*- mode: " name-of-mode |
(insert "-*- mode: " name-of-mode |
972 |
"; default-directory: " (prin1-to-string default-directory) |
"; default-directory: " (prin1-to-string default-directory) |
973 |
" -*-\n" command "\n") |
" -*-\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") |
978 |
(setq thisdir default-directory)) |
(setq thisdir default-directory)) |
979 |
(set-buffer-modified-p nil)) |
(set-buffer-modified-p nil)) |
980 |
;; If we're already in the compilation buffer, go to the end |
;; If we're already in the compilation buffer, go to the end |