[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 715f083: Fix font-lock in Compilation mode
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 715f083: Fix font-lock in Compilation mode |
Date: |
Sat, 9 Sep 2017 14:05:36 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 715f083: Fix font-lock in Compilation mode,
Eli Zaretskii <=