/[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.370 by jurta, Tue Aug 9 21:34:40 2005 UTC revision 1.371 by eliz, Fri Aug 12 10:17:17 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 finished" . compilation-info-face)       ("^Compilation \\(finish\\|start\\)ed" . compilation-info-face)
386       ("^Compilation exited abnormally" . compilation-error-face))       ("^Compilation exited abnormally" . compilation-error-face))
387     "Additional things to highlight in Compilation mode.     "Additional things to highlight in Compilation mode.
388  This gets tacked on the end of the generated expressions.")  This gets tacked on the end of the generated expressions.")
# Line 970  Returns the compilation buffer created." Line 970  Returns the compilation buffer created."
970          ;; Output a mode setter, for saving and later reloading this buffer.          ;; Output a mode setter, for saving and later reloading this buffer.
971          (insert "-*- mode: " name-of-mode          (insert "-*- mode: " name-of-mode
972                  "; default-directory: " (prin1-to-string default-directory)                  "; default-directory: " (prin1-to-string default-directory)
973                  " -*-\n" command "\n")                  " -*-\n"
974                    (format "%s started at %s\n"
975                            (capitalize name-of-mode)
976                            (format-time-string "%a %b %d %H:%M:%S"))
977                    command "\n")
978          (setq thisdir default-directory))          (setq thisdir default-directory))
979        (set-buffer-modified-p nil))        (set-buffer-modified-p nil))
980      ;; If we're already in the compilation buffer, go to the end      ;; If we're already in the compilation buffer, go to the end

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

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