# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869851769 0
# Node ID d2c26a873eb4b34b79cc816c64010f40f47d7529
# Parent  f61d1bd17b11dee983432b863a1d4baaac761f5d
(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 "^".

diff -r f61d1bd17b11 -r d2c26a873eb4 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Jul 25 13:34:18 1997 +0000
+++ b/lisp/progmodes/compile.el	Fri Jul 25 17:29:29 1997 +0000
@@ -276,6 +276,10 @@
     ;; 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 @@
   (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
     ;;