From 22052f1d13d9e8bc5b1c2013644a7d6f4696c04c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 27 Sep 1997 16:12:51 +0000 Subject: [PATCH] (compilation-mode-font-lock-keywords): Font-lock column numbers. --- lisp/progmodes/compile.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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) -- 2.39.2