Mercurial > emacs
changeset 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 | 2aaaa5e2d539 |
| children | 43a3190bc8ba |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Thu Aug 11 20:57:36 2005 +0000 +++ b/lisp/progmodes/compile.el Fri Aug 12 10:17:17 2005 +0000 @@ -382,7 +382,7 @@ ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" (1 font-lock-function-name-face) (3 compilation-line-face nil t)) (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) - ("^Compilation finished" . compilation-info-face) + ("^Compilation \\(finish\\|start\\)ed" . compilation-info-face) ("^Compilation exited abnormally" . compilation-error-face)) "Additional things to highlight in Compilation mode. This gets tacked on the end of the generated expressions.") @@ -970,7 +970,11 @@ ;; Output a mode setter, for saving and later reloading this buffer. (insert "-*- mode: " name-of-mode "; default-directory: " (prin1-to-string default-directory) - " -*-\n" command "\n") + " -*-\n" + (format "%s started at %s\n" + (capitalize name-of-mode) + (format-time-string "%a %b %d %H:%M:%S")) + command "\n") (setq thisdir default-directory)) (set-buffer-modified-p nil)) ;; If we're already in the compilation buffer, go to the end