[Emacs-diffs] master 715f083: Fix font-lock in Compilation mode

[Eli Zaretskii]

branch: master
commit 715f0835b5a0c17f2fcb43d1e75d55adce1639a5
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 f0935cd..8c84398 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