Ensure async-bytecomp-package-mode is not used in async-package (#194)

jwiegley · Nov 25, 2024 · 48dafc8 · 48dafc8
1 parent 863b336
commit 48dafc8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/async-package.el b/async-package.el
@@ -77,6 +77,12 @@ Argument ERROR-FILE is the file where errors are logged, if some."
                package-user-dir ,package-user-dir
                package-alist ',package-alist
                load-path ',load-path)
+         ;; Ensure `async-bytecomp-package-mode' doesn't kick in
+         ;; (issue #194) as some packages may enable it
+         ;; inconditionally.  We don't need to compile async as we are
+         ;; already async and in a clean environment.
+         (require 'async-bytecomp)
+         (setq async-bytecomp-allowed-packages nil)
          (prog1
              (condition-case err
                  (mapc ',fn ',packages)