bug#34479: Incorrect classification of messages in compilation-mode buffer

[Daniel Lopez <daniel.lopez999@gmail.com>]

 > diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
 > index 146af5a..368b088 100644
 > --- a/lisp/progmodes/compile.el
 > +++ b/lisp/progmodes/compile.el
 > @@ -1441,7 +1441,7 @@ compilation-parse-errors
 >                 (let ((this-type (if (consp type)
 >                                      (compilation-type type)
 >                                    (or type 2))))
 > -                (compilation--note-type type)
 > +                (compilation--note-type this-type)
 >
 >                   (compilation--put-prop
 >                    file 'font-lock-face

Hi Tobias,

Just verified it here - I agree, that should be changed as well.

(In fact, the copy of the function that's currently in my init file to
replace the original just for now, already has that extra change. Not
sure why that didn't make it into my original patch. Thanks for spotting.)

Daniel