/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.371 by eliz, Fri Aug 12 10:17:17 2005 UTC revision 1.372 by jurta, Sun Aug 14 06:51:49 2005 UTC
# Line 382  you may also want to change `compilation Line 382  you may also want to change `compilation
382       ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"       ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
383        (1 font-lock-function-name-face) (3 compilation-line-face nil t))        (1 font-lock-function-name-face) (3 compilation-line-face nil t))
384       (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)       (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
385       ("^Compilation \\(finish\\|start\\)ed" . compilation-info-face)       ("^Compilation \\(finished\\)"
386       ("^Compilation exited abnormally" . compilation-error-face))        (1 compilation-info-face))
387         ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?"
388          (1 compilation-error-face)
389          (2 compilation-error-face nil t)))
390     "Additional things to highlight in Compilation mode.     "Additional things to highlight in Compilation mode.
391  This gets tacked on the end of the generated expressions.")  This gets tacked on the end of the generated expressions.")
392    
# Line 971  Returns the compilation buffer created." Line 974  Returns the compilation buffer created."
974          (insert "-*- mode: " name-of-mode          (insert "-*- mode: " name-of-mode
975                  "; default-directory: " (prin1-to-string default-directory)                  "; default-directory: " (prin1-to-string default-directory)
976                  " -*-\n"                  " -*-\n"
977                  (format "%s started at %s\n"                  (format "%s started at %s\n\n"
978                          (capitalize name-of-mode)                          mode-name
979                          (format-time-string "%a %b %d %H:%M:%S"))                          (substring (current-time-string) 0 19))
980                  command "\n")                  command "\n")
981          (setq thisdir default-directory))          (setq thisdir default-directory))
982        (set-buffer-modified-p nil))        (set-buffer-modified-p nil))
# Line 1160  exited abnormally with code %d\n" Line 1163  exited abnormally with code %d\n"
1163      (define-key map [menu-bar compilation compilation-separator2]      (define-key map [menu-bar compilation compilation-separator2]
1164        '("----" . nil))        '("----" . nil))
1165      (define-key map [menu-bar compilation compilation-grep]      (define-key map [menu-bar compilation compilation-grep]
1166        '("Search Files (grep)" . grep))        '("Search Files (grep)..." . grep))
1167      (define-key map [menu-bar compilation compilation-recompile]      (define-key map [menu-bar compilation compilation-recompile]
1168        '("Recompile" . recompile))        '("Recompile" . recompile))
1169      (define-key map [menu-bar compilation compilation-compile]      (define-key map [menu-bar compilation compilation-compile]

Legend:
Removed from v.1.371  
changed lines
  Added in v.1.372

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26