From 715f0835b5a0c17f2fcb43d1e75d55adce1639a5 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Sep 2017 21:04:31 +0300 Subject: [PATCH] Fix font-lock in Compilation mode * lisp/progmodes/compile.el (compilation-face): Restore function lost during recent changes. (Bug#28349) --- lisp/progmodes/compile.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index f0935cd2add..8c84398792f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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 -- 2.39.5