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 complitions (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 <[EMAIL PROTECTED]>
* progmodes/compile.el (compilation-start): add the line
"Compilation started" with the time.
(compilation-mode-font-lock-keywords): add `stared' to keywords.
diff -c /appl/src/emacs/lisp/progmodes/compile-ek.el
/appl/src/emacs/lisp/progmodes/compile.el.\~1.368.\~
*** /appl/src/emacs/lisp/progmodes/compile-new.el Fri Aug 5 13:28:34 2005
--- /appl/src/emacs/lisp/progmodes/compile.el.~1.368.~ Thu Aug 4 04:36:10 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 \\(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.")
--- 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.")
***************
*** 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
--- 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
Diff finished. Sat Aug 6 15:08:04 2005
--
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
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
