From: Nicholas Vollmer <iarchivedmywholelife@gmail.com>
Date: Tue, 8 Nov 2022 00:57:34 +0000 (-0500)
Subject: bytecomp.el (byte-recompile-directory): Fix negated ignore logic
X-Git-Tag: emacs-29.0.90~1616^2~235
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a01024c859fd98a4a330a9b627dc11232afc6ad0;p=emacs.git

bytecomp.el (byte-recompile-directory): Fix negated ignore logic

Previous logic would only compile files which matched the
byte-compile-ignore-files regular expression.  (Bug#59115)
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 4d258dab96e..c685e5087f8 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1955,9 +1955,9 @@ also be compiled."
                         (not (auto-save-file-name-p source))
                         (not (member source (dir-locals--all-files directory)))
                         ;; File is requested to be ignored
-                        (string-match-p
-                         (regexp-opt byte-compile-ignore-files)
-                         source))
+                        (not (string-match-p
+                              (regexp-opt byte-compile-ignore-files)
+                              source)))
                    (progn (cl-incf
                            (pcase (byte-recompile-file source force arg)
                              ('no-byte-compile skip-count)