From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 31 Jul 2021 21:44:17 +0000 (+0200)
Subject: ; compilation-error-regexp-alist-alist): eval-when-compile
X-Git-Tag: emacs-28.0.90~1616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f33ad6954656096f53dc1ed2e941db37b5a3fc1;p=emacs.git

; compilation-error-regexp-alist-alist): eval-when-compile
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 02d1c588589..1fb6124ab56 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -173,6 +173,7 @@ and a string describing how the process finished.")
 ;; emacs -batch -l compile-tests.el -f ert-run-tests-batch-and-exit
 
 (defvar compilation-error-regexp-alist-alist
+ (eval-when-compile
   `((absoft
      "^\\(?:[Ee]rror on \\|[Ww]arning on\\( \\)\\)?[Ll]ine[ \t]+\\([0-9]+\\)[ \t]+\
 of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
@@ -615,7 +616,7 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
     ;; we do not know what lines will follow.
     (guile-file "^In \\(.+\\..+\\):\n" 1 nil nil 0)
     (guile-line "^ *\\([0-9]+\\): *\\([0-9]+\\)" nil 1 2)
-    )
+    ))
   "Alist of values for `compilation-error-regexp-alist'.")
 
 (defcustom compilation-error-regexp-alist