/[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.339 by monnier, Tue Nov 16 04:52:19 2004 UTC revision 1.340 by pfeiffer, Mon Nov 22 23:31:28 2004 UTC
# Line 181  of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"? Line 181  of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?
181      (epc      (epc
182       "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1)       "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1)
183    
184      (ftnchek-file      (ftnchek
185       "^File \\(.+\\.f\\):$"       "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)"
186       1 nil nil 0)       4 2 3 (1))
     (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))  
187    
188      (iar      (iar
189       "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"       "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"
# Line 916  Returns the compilation buffer created." Line 910  Returns the compilation buffer created."
910          ;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make"          ;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make"
911          (cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command)          (cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command)
912                  (if (match-end 1)                  (if (match-end 1)
913                      (match-string 1 command)                      (substitute-env-vars (match-string 1 command))
914                    "~")                    "~")
915                default-directory))                default-directory))
916          (erase-buffer)          (erase-buffer)

Legend:
Removed from v.1.339  
changed lines
  Added in v.1.340

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