Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

Rewrite Font Lock support.

Browse source
This commit is contained in:
Simon Marshall 1997-02-21 09:42:44 +00:00
parent 56fcbd7e9d
commit e93b2a5541
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/progmodes/compile.el
View file

@ -1,6 +1,6 @@
;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
;; Copyright (C) 1985, 86, 87, 93, 94, 1995, 1996 Free Software Foundation, Inc.
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 1997 Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@prep.ai.mit.edu>
;; Maintainer: FSF
@ -309,12 +309,22 @@ write into the compilation buffer, and to put in its mode line.")
;; History of grep commands.
(defvar grep-history nil)
(defvar compilation-mode-font-lock-keywords
;; This regexp needs a bit of rewriting. What is the third grouping for?
'(("^\\([a-zA-Z]?:?[^ \n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$"
1 font-lock-function-name-face))
;;; ("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 0 font-lock-keyword-face keep)
"Additional expressions to highlight in Compilation mode.")
(defun compilation-mode-font-lock-keywords ()
"Return expressions to highlight in Compilation mode."
(nconc
;;
;; Compiler warning/error lines.
(mapcar #'(lambda (item)
(list (nth 0 item)
(list (nth 1 item) 'font-lock-warning-face nil t)
(list (nth 2 item) 'font-lock-variable-name-face nil t)))
compilation-error-regexp-alist)
(list
;;
;; Compiler output lines. Recognise `make[n]:' lines too.
'("^\\([A-Za-z_0-9/\.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
(1 font-lock-function-name-face) (3 font-lock-comment-face nil t)))
))
;;;###autoload
(defun compile (command)