Commit 5dfa3d35 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compilation-error-regexp-alist): Add elt for EPC F90.

compilation-mode-font-lock-keywords: Ensure that each
regexp generated from compilation-error-regexp-alist begins with "^".
parent e9a5d6f7
......@@ -276,6 +276,10 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2)
;; Semantic error at line 528, column 5, file erosacqdb.pc:
("Semantic error at line \\([0-9]+\\), column \\([0-9]+\\), file \\(.*\\):"
3 1 2)
;; EPC F90 compiler:
;; Error 24 at (2:progran.f90) : syntax error
("Error [0-9]+ at (\\([0-9]*\\):\\([^)\n]+\\))" 2 1)
)
"Alist that specifies how to match errors in compiler output.
Each elt has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX FILE-FORMAT...])
......@@ -448,10 +452,19 @@ write into the compilation buffer, and to put in its mode line.")
(nconc
;;
;; Compiler warning/error lines.
(mapcar #'(lambda (item)
(list (nth 0 item)
(list (nth 1 item) 'font-lock-warning-face nil t)
(list (nth 2 item) 'font-lock-variable-name-face nil t)))
(mapcar (function
(lambda (item)
;; Prepend "^", adjusting FILE-IDX and LINE-IDX accordingly.
(let ((file-idx (nth 1 item)) (line-idx (nth 2 item)) keyword)
(when (numberp line-idx)
(setq keyword
(cons (list (1+ line-idx) 'font-lock-variable-name-face)
keyword)))
(when (numberp file-idx)
(setq keyword
(cons (list (1+ file-idx) 'font-lock-warning-face)
keyword)))
(cons (concat "^\\(" (nth 0 item) "\\)") keyword))))
compilation-error-regexp-alist)
(list
;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment