diff options
| author | Eli Zaretskii | 2017-09-09 21:04:31 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-09-09 21:04:31 +0300 |
| commit | 715f0835b5a0c17f2fcb43d1e75d55adce1639a5 (patch) | |
| tree | d8bd13ceb6a31bd34414dc98fa3b40b14498933a | |
| parent | 4131f9785e30f2a31745125c714e922892113c62 (diff) | |
| download | emacs-715f0835b5a0c17f2fcb43d1e75d55adce1639a5.tar.gz emacs-715f0835b5a0c17f2fcb43d1e75d55adce1639a5.zip | |
Fix font-lock in Compilation mode
* lisp/progmodes/compile.el (compilation-face): Restore function
lost during recent changes. (Bug#28349)
| -rw-r--r-- | lisp/progmodes/compile.el | 10 |
1 files changed, 10 insertions, 0 deletions
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." | |||
| 905 | (and (cdr type) (match-end (cdr type)) 0) | 905 | (and (cdr type) (match-end (cdr type)) 0) |
| 906 | 2)) | 906 | 2)) |
| 907 | 907 | ||
| 908 | (defun compilation-face (type) | ||
| 909 | (let ((typ (compilation-type type))) | ||
| 910 | (cond | ||
| 911 | ((eq typ 1) | ||
| 912 | compilation-warning-face) | ||
| 913 | ((eq typ 0) | ||
| 914 | compilation-info-face) | ||
| 915 | ((eq typ 2) | ||
| 916 | compilation-error-face)))) | ||
| 917 | |||
| 908 | ;; LOC (or location) is a list of (COLUMN LINE FILE-STRUCTURE nil nil) | 918 | ;; LOC (or location) is a list of (COLUMN LINE FILE-STRUCTURE nil nil) |
| 909 | 919 | ||
| 910 | ;; COLUMN and LINE are numbers parsed from an error message. COLUMN and maybe | 920 | ;; COLUMN and LINE are numbers parsed from an error message. COLUMN and maybe |