Suggestion: small improvment for compilation

["Ehud Karni" <ehud@unix.mvs.co.il>]

[this is resend because the attached patch had the files reversed]

Below is small patch to compile.el. This patch add the line:
    Compilation started at Mon Aug 01 17:09:03
and highlight it in the same way as "Compilation finished".

I add this because I have some very long compilations (e.g. build
Emacs on Cygwin) and this helps me keep track of it.

Note. I don't have CVS write permission, so if some of the developers
find this worth adding, please install it.

Ehud.


2005-08-06  Ehud Karni  <ehud@unix.mvs.co.il>

	* progmodes/compile.el (compilation-start): add the line
	"Compilation started" with the time.
        (compilation-mode-font-lock-keywords): add `stared' to keywords.


diff -c progmodes/compile.el.~1.368.~ progmodes/compile-ek.el
*** progmodes/compile.el.~1.368.~	Thu Aug  4 04:36:10 2005
--- progmodes/compile-new.el		Fri Aug  5 13:28:34 2005
***************
*** 382,388 ****
       ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
        (1 font-lock-function-name-face) (3 compilation-line-face nil t))
       (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
!      ("^Compilation finished" . font-lock-keyword-face)
       ("^Compilation exited abnormally" . font-lock-keyword-face))
     "Additional things to highlight in Compilation mode.
  This gets tacked on the end of the generated expressions.")
--- 382,388 ----
       ("^\\([[: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" . font-lock-keyword-face)
       ("^Compilation exited abnormally" . font-lock-keyword-face))
     "Additional things to highlight in Compilation mode.
  This gets tacked on the end of the generated expressions.")
***************
*** 987,993 ****
  	;; 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")
  	(setq thisdir default-directory))
        (set-buffer-modified-p nil))
      ;; If we're already in the compilation buffer, go to the end
--- 987,997 ----
  	;; Output a mode setter, for saving and later reloading this buffer.
  	(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"))
! 		command "\n")
  	(setq thisdir default-directory))
        (set-buffer-modified-p nil))
      ;; If we're already in the compilation buffer, go to the end




--
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry