From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Mon, 22 Nov 2004 23:31:28 +0000 (+0000)
Subject: (compilation-start): In cd command use substitute-env-vars -- not quite shell compati... 
X-Git-Tag: ttn-vms-21-2-B4~3733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12221c849bee7bd8925541257e383e0be1860741;p=emacs.git

(compilation-start): In cd command use substitute-env-vars -- not quite shell compatible but better than nothing.
(compilation-error-regexp-alist-alist): Simplify ftnchek to only handle the newer versions messages, which are more parseable.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b73c9ca0007..4d96181a6f4 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -181,15 +181,9 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
     (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))
+    (ftnchek
+     "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)"
+     4 2 3 (1))
 
     (iar
      "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"
@@ -916,7 +910,7 @@ Returns the compilation buffer created."
 	;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make"
 	(cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command)
 		(if (match-end 1)
-		    (match-string 1 command)
+		    (substitute-env-vars (match-string 1 command))
 		  "~")
 	      default-directory))
 	(erase-buffer)