Recognize '-fdiagnostics-parseable-fixits' compilation messages

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b18eb81fee144a1fd0a32de89419a13b18f812c1..0dda610776e341ae595ee6449d327a035429a399 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -359,6 +359,29 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
 \\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?\\(?:\\([:,]\\|$\\)\\)?"
      1 2 3 (nil . 4))
 
+    (fix-it
+     ,(rx bol
+          "fix-it:\""
+          (group-n 1 (+ (not (any ?\" ?\n))))
+          "\":{"
+          (group-n 2 (+ digit))
+          ":"
+          (group-n 3 (+ digit))
+          "-"
+          (+ digit)
+          ":"
+          (+ digit)
+          "}:\""
+          (group-n 4 (* (not (any ?\" ?\n))))
+          "\""
+          eol)
+     1 2 3 0 1 (4 '(face diff-refine-added
+                    ;; TODO - click to fix:
+                    ;; mouse-face ...
+                    ;; keymap ...
+                    ;; follow-link ...
+                    )))
+
     (ruby-Test::Unit
      "^    [[ ]?\\([^ (].*\\):\\([1-9][0-9]*\\)\\(\\]\\)?:in " 1 2)