[nongnu] elpa/with-editor 19ebf53 104/140: Handle async-bytecomp-allowed-packages properly

[Jonas Bernoulli]

branch: elpa/with-editor
commit 19ebf53f44532b5c31aaa5b6870fbc567e6889a4
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Handle async-bytecomp-allowed-packages properly
    
    Previously the value of `async-bytecomp-allowed-packages' always was a
    list packages and the special symbol `all'.  We failed to handle `all'.
    Now the value can also be one of the atoms `t' and `all'.
    
    Adjust our related code to handle all valid values.
    
    Re https://github.com/jwiegley/emacs-async/pull/113.
    Re https://github.com/magit/magit/pull/3981.
---
 with-editor.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/with-editor.el b/with-editor.el
index 398e293..5d25f89 100644
--- a/with-editor.el
+++ b/with-editor.el
@@ -86,7 +86,10 @@
 (require 'shell)
 
 (and (require 'async-bytecomp nil t)
-     (memq 'magit (bound-and-true-p async-bytecomp-allowed-packages))
+     (let ((pkgs (bound-and-true-p async-bytecomp-allowed-packages)))
+       (if (consp pkgs)
+           (cl-intersection '(all magit) pkgs)
+         (memq pkgs '(all t))))
      (fboundp 'async-bytecomp-package-mode)
      (async-bytecomp-package-mode 1))