procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Fix `comp-deferred-compilation-black-list' effectiveness

Browse source 
* lisp/emacs-lisp/comp.el (native-compile-async): Fix logic for
	'comp-deferred-compilation-black-list' effectiveness.
This commit is contained in:
Andrea Corallo 2020-05-10 08:48:50 +01:00
parent 49def706f3
commit 9bc0a7c408
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/comp.el
View file

@ -2376,12 +2376,13 @@ LOAD can be nil t or 'late."
queued with LOAD %"
file load (cdr entry))
;; Make sure we are not already compiling `file' (bug#40838).
(unless (and (gethash file comp-async-compilations)
;; Exclude some file from deferred compilation if
;; `comp-deferred-compilation-black-list' says so.
(or (not (eq load 'late))
(cl-notany (lambda (re) (string-match re file))
comp-deferred-compilation-black-list)))
(unless (or (gethash file comp-async-compilations)
;; Also exclude files from deferred compilation if
;; any of the regexps in
;; `comp-deferred-compilation-black-list' matches.
(and (eq load 'late)
(cl-some (lambda (re) (string-match re file))
comp-deferred-compilation-black-list)))
(let ((out-dir (comp-output-directory file))
(out-filename (comp-output-filename file)))
(if (or (file-writable-p out-filename)