Mercurial > emacs

changeset 20001:75f1bdf2c886

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-mode-font-lock-keywords): Font-lock column numbers.
author Karl Heuer <kwzh@gnu.org>
date Sat, 27 Sep 1997 16:12:51 +0000
parents ccccaf435fdd
children e89847e2df84
files lisp/progmodes/compile.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)