Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(compilation-start): Add the line "Compilation started" with compilation

Browse source 
start time.
(compilation-mode-font-lock-keywords): Add `started' to keywords.
This commit is contained in:
Eli Zaretskii 2005-08-12 10:18:02 +00:00
parent 1f742f74f5
commit a67e5425b3
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2005-08-12 Ehud Karni <ehud@unix.mvs.co.il>
* progmodes/compile.el (compilation-start): Add the line
"Compilation started" with compilation start time.
(compilation-mode-font-lock-keywords): Add `started' to keywords.
2005-08-11 Luc Teirlinck <teirllm@auburn.edu>
* menu-bar.el (menu-bar-options-menu): Standardize capitalization

8
lisp/progmodes/compile.el
View file

@ -382,7 +382,7 @@ 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 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 @@ Returns the compilation buffer created."
;; 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