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-error-regexp-alist): Add elt for EPC F90.

Browse Source 
compilation-mode-font-lock-keywords: Ensure that each
regexp generated from compilation-error-regexp-alist begins with "^".
This commit is contained in:
Richard M. Stallman 1997-07-25 17:29:29 +00:00
parent e9a5d6f716
commit 5dfa3d3536
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/progmodes/compile.el
View File

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