(compilation-start): Add the line "Compilation started" with compilation

start time.
(compilation-mode-font-lock-keywords): Add `started' to keywords.

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  <ehud@unix.mvs.co.il>
+
+        * 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  <teirllm@auburn.edu>
 
         * 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