From a67e5425b3c4e7160f2fbb1852e7b013d1b54ddf Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 12 Aug 2005 10:18:02 +0000 Subject: [PATCH] (compilation-start): Add the line "Compilation started" with compilation start time. (compilation-mode-font-lock-keywords): Add `started' to keywords. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/compile.el | 8 ++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 243963ee36b..3ce16898592 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-08-12 Ehud Karni + + * progmodes/compile.el (compilation-start): Add the line + "Compilation started" with compilation start time. + (compilation-mode-font-lock-keywords): Add `started' to keywords. + 2005-08-11 Luc Teirlinck * menu-bar.el (menu-bar-options-menu): Standardize capitalization diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 6d5acfcbdf4..61af8e2a4ef 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -382,7 +382,7 @@ you may also want to change `compilation-page-delimiter'.") ("^\\([[: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 @@ Returns the compilation buffer created." ;; 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 -- 2.39.2