mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(compilation-start): In cd command use substitute-env-vars -- not quite shell compatible but better than nothing.

Browse Source 
(compilation-error-regexp-alist-alist): Simplify ftnchek to only handle the newer versions messages, which are more parseable.
This commit is contained in:
Daniel Pfeiffer 2004-11-22 23:31:28 +00:00
parent 8fc464b6e1
commit 12221c849b
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/compile.el
View File

@ -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)