Commit 22052f1d authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 7933678b
......@@ -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))
(when (numberp col-idx)
(setq keyword
(cons (list (1+ col-idx) 'font-lock-type-face nil t)
(when (numberp line-idx)
(setq keyword
(cons (list (1+ line-idx) 'font-lock-variable-name-face)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment