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

[Daniel Pfeiffer]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.334 
emacs/lisp/progmodes/compile.el:1.335
*** emacs/lisp/progmodes/compile.el:1.334       Wed Oct 20 22:30:34 2004
--- emacs/lisp/progmodes/compile.el     Wed Oct 27 09:10:27 2004
***************
*** 181,186 ****
--- 181,196 ----
      (epc
       "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1)
  
+     (ftnchek-file
+      "^File \\(.+\\.f\\):$"
+      1 nil nil 0)
+     (ftnchek-line-file
+      "\\(^Warning .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)? file 
\\(.+\\.f\\)"
+      4 2 3 (1) nil (1 'default nil t))
+     (ftnchek-line
+      "\\(?:^\\(Warning\\) .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)?"
+      nil 2 3 (1) nil (1 (compilation-face '(1)) nil t))
+ 
      (iar
       
"^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"
       1 2 nil (3))
***************
*** 191,198 ****
  
      ;; fixme: should be `mips'
      (irix
!      "^[-[:alnum:]_/]+: 
\\(?:[sS]evere\\|[eE]rror\\|[wW]arnin\\(g\\)\\|[iI]nf\\(o\\)\\)[0-9 ]*:\
!  \\([^,\" \n\t]+\\)\\(?:, line\\|:\\) \\([0-9]+\\):" 3 4 nil (1 . 2))
  
      (java
       "^\\(?:[ \t]+at \\|==[0-9]+== 
+\\(?:at\\|b\\(y\\)\\)\\).+(\\([^()\n]+\\):\\([0-9]+\\))$" 2 3 nil (1))
--- 201,208 ----
  
      ;; fixme: should be `mips'
      (irix
!      "^[-[:alnum:]_/ ]+: 
\\(?:\\(?:[sS]evere\\|[eE]rror\\|[wW]arnin\\(g\\)\\|[iI]nf\\(o\\)\\)[0-9 ]*: 
\\)?\
! \\([^,\" \n\t]+\\)\\(?:, line\\|:\\) \\([0-9]+\\):" 3 4 nil (1 . 2))
  
      (java
       "^\\(?:[ \t]+at \\|==[0-9]+== 
+\\(?:at\\|b\\(y\\)\\)\\).+(\\([^()\n]+\\):\\([0-9]+\\))$" 2 3 nil (1))