Commit e93b2a55 authored by Simon Marshall's avatar Simon Marshall
Browse files

Rewrite Font Lock support.

parent 56fcbd7e
;;; compile.el --- run compiler as inferior of Emacs, parse error messages. ;;; 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> ;; Author: Roland McGrath <roland@prep.ai.mit.edu>
;; Maintainer: FSF ;; Maintainer: FSF
...@@ -309,12 +309,22 @@ write into the compilation buffer, and to put in its mode line.") ...@@ -309,12 +309,22 @@ write into the compilation buffer, and to put in its mode line.")
;; History of grep commands. ;; History of grep commands.
(defvar grep-history nil) (defvar grep-history nil)
(defvar compilation-mode-font-lock-keywords (defun compilation-mode-font-lock-keywords ()
;; This regexp needs a bit of rewriting. What is the third grouping for? "Return expressions to highlight in Compilation mode."
'(("^\\([a-zA-Z]?:?[^ \n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" (nconc
1 font-lock-function-name-face)) ;;
;;; ("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 0 font-lock-keyword-face keep) ;; Compiler warning/error lines.
"Additional expressions to highlight in Compilation mode.") (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 ;;;###autoload
(defun compile (command) (defun compile (command)
......
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