From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 27 Oct 2020 09:17:13 +0000 (+0100)
Subject: Don't do compilation-transform-file-match-alist if there's no file name
X-Git-Tag: emacs-28.0.90~5399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d3ed5f815de0e12fb11f809d295c2820643295d;p=emacs.git

Don't do compilation-transform-file-match-alist if there's no file name

* lisp/progmodes/compile.el (compilation-error-properties): There
may not be a file name (bug#40111).  In that case, don't do the
`compilation-transform-file-match-alist' thing.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9188a08e780..de0ea428d5e 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1242,12 +1242,12 @@ POS and RES.")
 		       2)))
     ;; Remove matches like /bin/sh and do other file name transforms.
     (save-match-data
-      (let ((file-name
-             (and (consp file)
-                  (not (bufferp (car file)))
-                  (if (cdr file)
-                      (expand-file-name (car file) (cdr file))
-                    (car file)))))
+      (when-let ((file-name
+                  (and (consp file)
+                       (not (bufferp (car file)))
+                       (if (cdr file)
+                           (expand-file-name (car file) (cdr file))
+                         (car file)))))
         (cl-loop for (regexp replacement)
                  in compilation-transform-file-match-alist
                  when (string-match regexp file-name)