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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 243963ee36baba86d95dd093f3b2916c97d0244a..3ce168985922ff30b8b7e5fed085d92e325fd511 100644 (file)
--- 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 6d5acfcbdf4c23df0db2d03816ca33d92fa7ac4e..61af8e2a4ef713333876f2042e1ade893a8813a2 100644 (file)
--- 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