diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-11-15 11:03:58 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-11-17 20:55:04 +0100 |
| commit | 11cb8103565abfd67e3ba18d638d63a4fc5a0970 (patch) | |
| tree | bbeffbf2673db5a2e4e2d0f566812d2db051bef7 /lisp/emacs-lisp | |
| parent | 345bfd376e3e29426529a4c99930a36a04c7bb2f (diff) | |
| download | emacs-11cb8103565abfd67e3ba18d638d63a4fc5a0970.tar.gz emacs-11cb8103565abfd67e3ba18d638d63a4fc5a0970.tar.bz2 emacs-11cb8103565abfd67e3ba18d638d63a4fc5a0970.zip | |
Fix the behaviour of 'byte-compile-ignore-files'
* lisp/emacs-lisp/bytecomp.el (byte-recompile-directory): Negate the
'string-match-p' check. (Bug#59139)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index c685e5087f8..c81c42e0428 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) |