procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix faces in compilation messages

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

Copyright-paperwork-exempt: yes
This commit is contained in:
Daniel Lopez 2019-02-14 16:05:10 +00:00 • committed by Eli Zaretskii
parent 834ca187b8
commit 3cba92d42e
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/progmodes/compile.el
View file

@ -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)
(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]
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)