[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Eli Zaretskii]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.370 
emacs/lisp/progmodes/compile.el:1.371
*** emacs/lisp/progmodes/compile.el:1.370       Tue Aug  9 21:34:40 2005
--- emacs/lisp/progmodes/compile.el     Fri Aug 12 10:17:17 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 finished" . 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.")
--- 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" . 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,976 ****
        ;; 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
--- 970,980 ----
        ;; 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