Mercurial > emacs
comparison lisp/progmodes/compile.el @ 90813:e6fdae9180d4
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 698-710)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 216)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-196
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 24 Apr 2007 21:56:25 +0000 |
| parents | 4ef881a120fe 9d01047fbeaf |
| children | d7172f202ab8 |
comparison
equal
deleted
inserted
replaced
| 90812:6137cc8ddf90 | 90813:e6fdae9180d4 |
|---|---|
| 1040 (if highlight-regexp | 1040 (if highlight-regexp |
| 1041 (set (make-local-variable 'compilation-highlight-regexp) | 1041 (set (make-local-variable 'compilation-highlight-regexp) |
| 1042 highlight-regexp)) | 1042 highlight-regexp)) |
| 1043 ;; Output a mode setter, for saving and later reloading this buffer. | 1043 ;; Output a mode setter, for saving and later reloading this buffer. |
| 1044 (insert "-*- mode: " name-of-mode | 1044 (insert "-*- mode: " name-of-mode |
| 1045 "; compilation-directory: " (prin1-to-string compilation-directory) | 1045 "; default-directory: " (prin1-to-string default-directory) |
| 1046 " -*-\n" | 1046 " -*-\n" |
| 1047 (format "%s started at %s\n\n" | 1047 (format "%s started at %s\n\n" |
| 1048 mode-name | 1048 mode-name |
| 1049 (substring (current-time-string) 0 19)) | 1049 (substring (current-time-string) 0 19)) |
| 1050 command "\n") | 1050 command "\n") |