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

[Juri Linkov]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.371 
emacs/lisp/progmodes/compile.el:1.372
*** emacs/lisp/progmodes/compile.el:1.371       Fri Aug 12 10:17:17 2005
--- emacs/lisp/progmodes/compile.el     Sun Aug 14 06:51:49 2005
***************
*** 382,389 ****
       ("^\\([[: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.")
  
--- 382,392 ----
       ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
        (1 font-lock-function-name-face) (3 compilation-line-face nil t))
       (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
!      ("^Compilation \\(finished\\)"
!       (1 compilation-info-face))
!      ("^Compilation \\(exited 
abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code 
\\([0-9]+\\)\\)?"
!       (1 compilation-error-face)
!       (2 compilation-error-face nil t)))
     "Additional things to highlight in Compilation mode.
  This gets tacked on the end of the generated expressions.")
  
***************
*** 971,979 ****
        (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))
--- 974,982 ----
        (insert "-*- mode: " name-of-mode
                "; default-directory: " (prin1-to-string default-directory)
                " -*-\n"
!               (format "%s started at %s\n\n"
!                       mode-name
!                       (substring (current-time-string) 0 19))
                command "\n")
        (setq thisdir default-directory))
        (set-buffer-modified-p nil))
***************
*** 1160,1166 ****
      (define-key map [menu-bar compilation compilation-separator2]
        '("----" . nil))
      (define-key map [menu-bar compilation compilation-grep]
!       '("Search Files (grep)" . grep))
      (define-key map [menu-bar compilation compilation-recompile]
        '("Recompile" . recompile))
      (define-key map [menu-bar compilation compilation-compile]
--- 1163,1169 ----
      (define-key map [menu-bar compilation compilation-separator2]
        '("----" . nil))
      (define-key map [menu-bar compilation compilation-grep]
!       '("Search Files (grep)..." . grep))
      (define-key map [menu-bar compilation compilation-recompile]
        '("Recompile" . recompile))
      (define-key map [menu-bar compilation compilation-compile]