# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1123841837 0
# Node ID 37347aa3aaaecb37db0b6614181ee95b489b2ade
# Parent  2aaaa5e2d5392d8f7fad87898e8d3a4052c352b9
(compilation-start): Add the line "Compilation started" with compilation
start time.
(compilation-mode-font-lock-keywords): Add `started' to keywords.

diff -r 2aaaa5e2d539 -r 37347aa3aaae lisp/progmodes/compile.el
--- 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