Suggestion: small improvment for compilation

[Ehud Karni]

[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  <address@hidden>

        * 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