[elpa] externals/async 5463ef80d2: Avoid loading byte-* vars #153

[ELPA Syncer]

branch: externals/async
commit 5463ef80d2f252f23125320ef48c0fee42454bb9
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Avoid loading byte-* vars #153
    
    Some byte-* variables are no more readable since introduction of
    symbols with positions in emacs-29, avoid loading by default such
    vars.
    
    The regexp passed to async-inject-variables is now stored in a var to
    allow modifying it.
---
 async-bytecomp.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index fe397ae392..bc908244b1 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -56,6 +56,9 @@ all packages are always compiled asynchronously."
 (defvar async-byte-compile-log-file
   (concat user-emacs-directory "async-bytecomp.log"))
 
+(defvar async-bytecomp-load-variable-regexp "\\`load-path\\'"
+  "The variable used by `async-inject-variables' when (re)compiling async.")
+
 ;;;###autoload
 (defun async-byte-recompile-directory (directory &optional quiet)
   "Compile all *.el files in DIRECTORY asynchronously.
@@ -92,7 +95,7 @@ All *.elc files are systematically deleted before proceeding."
     (async-start
      `(lambda ()
         (require 'bytecomp)
-        ,(async-inject-variables "\\`\\(?:load-path\\'\\|byte-\\)")
+        ,(async-inject-variables async-bytecomp-load-variable-regexp)
         (let ((default-directory (file-name-as-directory ,directory))
               error-data)
           (add-to-list 'load-path default-directory)
@@ -189,7 +192,7 @@ Same as `byte-compile-file' but asynchronous."
     (async-start
      `(lambda ()
         (require 'bytecomp)
-        ,(async-inject-variables "\\`load-path\\'")
+        ,(async-inject-variables async-bytecomp-load-variable-regexp)
         (let ((default-directory ,(file-name-directory file)))
           (add-to-list 'load-path default-directory)
           (byte-compile-file ,file)