Commit 3cba92d4 authored by Daniel Lopez's avatar Daniel Lopez Committed by Eli Zaretskii

Fix faces in compilation messages

* lisp/progmodes/compile.el (compilation-parse-errors): Don't
clobber the value of TYPE inside the loop.  (Bug#34479)

Copyright-paperwork-exempt: yes
parent 834ca187
Pipeline #770 passed with stage
in 30 minutes and 59 seconds
......@@ -1429,17 +1429,17 @@ to `compilation-error-regexp-alist' if RULES is nil."
file line end-line col end-col (or type 2) fmt))
(when (integerp file)
(setq type (if (consp type)
(compilation-type type)
(or type 2)))
(compilation--note-type type)
(compilation--put-prop
file 'font-lock-face
(symbol-value (aref [compilation-info-face
compilation-warning-face
compilation-error-face]
type))))
(let ((this-type (if (consp type)
(compilation-type type)
(or type 2))))
(compilation--note-type type)
(compilation--put-prop
file 'font-lock-face
(symbol-value (aref [compilation-info-face
compilation-warning-face
compilation-error-face]
this-type)))))
(compilation--put-prop
line 'font-lock-face compilation-line-face)
......
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