Commit 715f0835 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix font-lock in Compilation mode

* lisp/progmodes/compile.el (compilation-face): Restore function
lost during recent changes.  (Bug#28349)
parent 4131f978
......@@ -905,6 +905,16 @@ from a different message."
(and (cdr type) (match-end (cdr type)) 0)
2))
(defun compilation-face (type)
(let ((typ (compilation-type type)))
(cond
((eq typ 1)
compilation-warning-face)
((eq typ 0)
compilation-info-face)
((eq typ 2)
compilation-error-face))))
;; LOC (or location) is a list of (COLUMN LINE FILE-STRUCTURE nil nil)
;; COLUMN and LINE are numbers parsed from an error message. COLUMN and maybe
......
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