# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 875376771 0
# Node ID 75f1bdf2c886d7ca1b0d11623fb39fcbc44f21cb
# Parent  ccccaf435fdd7208c5d99e767a086ea73bf467f1
(compilation-mode-font-lock-keywords): Font-lock column numbers.

diff -r ccccaf435fdd -r 75f1bdf2c886 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Sep 27 16:06:15 1997 +0000
+++ b/lisp/progmodes/compile.el	Sat Sep 27 16:12:51 1997 +0000
@@ -465,7 +465,14 @@
    (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)