(compilation-mode-font-lock-keywords): Font-lock column numbers.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index cbb0a6dc086f92042c65cf79996f0ea91340a40e..54e0ed1808b1dc6c94eb47dbf2888c45bc285993 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -465,7 +465,14 @@ write into the compilation buffer, and to put in its mode line.")
    (mapcar (function
            (lambda (item)
              ;; Prepend "^", adjusting FILE-IDX and LINE-IDX accordingly.
-             (let ((file-idx (nth 1 item)) (line-idx (nth 2 item)) keyword)
+             (let ((file-idx (nth 1 item))
+                   (line-idx (nth 2 item))
+                   (col-idx (nth 3 item))
+                   keyword)
+               (when (numberp col-idx)
+                 (setq keyword
+                       (cons (list (1+ col-idx) 'font-lock-type-face nil t)
+                             keyword)))
                (when (numberp line-idx)
                  (setq keyword
                        (cons (list (1+ line-idx) 'font-lock-variable-name-face)