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 \\(finish\\|start\\)ed" . compilation-info-face) |
("^Compilation \\(finished\\)" |
386 |
("^Compilation exited abnormally" . compilation-error-face)) |
(1 compilation-info-face)) |
387 |
|
("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?" |
388 |
|
(1 compilation-error-face) |
389 |
|
(2 compilation-error-face nil t))) |
390 |
"Additional things to highlight in Compilation mode. |
"Additional things to highlight in Compilation mode. |
391 |
This gets tacked on the end of the generated expressions.") |
This gets tacked on the end of the generated expressions.") |
392 |
|
|
974 |
(insert "-*- mode: " name-of-mode |
(insert "-*- mode: " name-of-mode |
975 |
"; default-directory: " (prin1-to-string default-directory) |
"; default-directory: " (prin1-to-string default-directory) |
976 |
" -*-\n" |
" -*-\n" |
977 |
(format "%s started at %s\n" |
(format "%s started at %s\n\n" |
978 |
(capitalize name-of-mode) |
mode-name |
979 |
(format-time-string "%a %b %d %H:%M:%S")) |
(substring (current-time-string) 0 19)) |
980 |
command "\n") |
command "\n") |
981 |
(setq thisdir default-directory)) |
(setq thisdir default-directory)) |
982 |
(set-buffer-modified-p nil)) |
(set-buffer-modified-p nil)) |
1163 |
(define-key map [menu-bar compilation compilation-separator2] |
(define-key map [menu-bar compilation compilation-separator2] |
1164 |
'("----" . nil)) |
'("----" . nil)) |
1165 |
(define-key map [menu-bar compilation compilation-grep] |
(define-key map [menu-bar compilation compilation-grep] |
1166 |
'("Search Files (grep)" . grep)) |
'("Search Files (grep)..." . grep)) |
1167 |
(define-key map [menu-bar compilation compilation-recompile] |
(define-key map [menu-bar compilation compilation-recompile] |
1168 |
'("Recompile" . recompile)) |
'("Recompile" . recompile)) |
1169 |
(define-key map [menu-bar compilation compilation-compile] |
(define-key map [menu-bar compilation compilation-compile] |