From: Juri Linkov <juri@jurta.org>
Date: Sun, 14 Aug 2005 06:51:49 +0000 (+0000)
Subject: (compilation-mode-font-lock-keywords):
X-Git-Tag: emacs-pretest-22.0.90~7607
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=314b410b7eacceab1b6cc42559d6035f4ea93d65;p=emacs.git

(compilation-mode-font-lock-keywords):
Remove highlighting of "Compilation started".  Highlight only
the word "finished" in "Compilation finished".  Add highlighting
of "interrupt", "killed", "terminated" and the exit code.
(compilation-start): Add newline after header.  Use exactly the
same time stamp format as the finishing message.
(compilation-mode-map): Add ellipsis to "Search Files (grep)".
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 61af8e2a4ef..0c299e5678c 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -382,8 +382,11 @@ 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 \\(finish\\|start\\)ed" . compilation-info-face)
-     ("^Compilation exited abnormally" . compilation-error-face))
+     ("^Compilation \\(finished\\)"
+      (1 compilation-info-face))
+     ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?"
+      (1 compilation-error-face)
+      (2 compilation-error-face nil t)))
    "Additional things to highlight in Compilation mode.
 This gets tacked on the end of the generated expressions.")
 
@@ -971,9 +974,9 @@ Returns the compilation buffer created."
 	(insert "-*- mode: " name-of-mode
 		"; default-directory: " (prin1-to-string default-directory)
 		" -*-\n"
-		(format "%s started at %s\n"
-			(capitalize name-of-mode)
-			(format-time-string "%a %b %d %H:%M:%S"))
+		(format "%s started at %s\n\n"
+			mode-name
+			(substring (current-time-string) 0 19))
 		command "\n")
 	(setq thisdir default-directory))
       (set-buffer-modified-p nil))
@@ -1160,7 +1163,7 @@ exited abnormally with code %d\n"
     (define-key map [menu-bar compilation compilation-separator2]
       '("----" . nil))
     (define-key map [menu-bar compilation compilation-grep]
-      '("Search Files (grep)" . grep))
+      '("Search Files (grep)..." . grep))
     (define-key map [menu-bar compilation compilation-recompile]
       '("Recompile" . recompile))
     (define-key map [menu-bar compilation compilation-compile]