emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

scratch/package-vc-fixes 4730409de9 38/48: Fix the behaviour or 'byte-co


From: Philip Kaludercic
Subject: scratch/package-vc-fixes 4730409de9 38/48: Fix the behaviour or 'byte-compile-ignore-files'
Date: Wed, 16 Nov 2022 04:50:08 -0500 (EST)

branch: scratch/package-vc-fixes
commit 4730409de9350ee43f53e145ddf4dd2420a02145
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Fix the behaviour or 'byte-compile-ignore-files'
    
    * lisp/emacs-lisp/bytecomp.el (byte-recompile-directory): Negate the
    'string-match-p' check.  (Bug#59139)
---
 lisp/emacs-lisp/bytecomp.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index c685e5087f..c81c42e042 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1941,11 +1941,10 @@ also be compiled."
                      ;; This file is a subdirectory.  Handle them differently.
                      (or (null arg) (eq 0 arg)
                          (y-or-n-p (concat "Check " source "? ")))
-                     (setq directories (nconc directories (list source)))
                       ;; Directory 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))
                       (setq directories (nconc directories (list source))))
                ;; It is an ordinary file.  Decide whether to compile it.
                (if (and (string-match emacs-lisp-file-regexp source)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]