Fix last change on 'compilation-parse-errors'

* lisp/progmodes/compile.el (compilation-parse-errors): Fix
previous change in this function.  (Bug#34479)

Copyright-paperwork-exempt: yes

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 5312a55a2587ce3aa2a9942663147e5281d68204..49b79de5851a5c2348d676e3b4d79782523e0b39 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1432,7 +1432,7 @@ to `compilation-error-regexp-alist' if RULES is nil."
               (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