From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 27 Sep 1997 16:12:51 +0000 (+0000)
Subject: (compilation-mode-font-lock-keywords): Font-lock column numbers.
X-Git-Tag: emacs-20.3~3072
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22052f1d13d9e8bc5b1c2013644a7d6f4696c04c;p=emacs.git

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

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index cbb0a6dc086..54e0ed1808b 100644
--- 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)