[elpa] master ee727e1 168/187: Add async to load-path when recompiling itself.

[Michael Albinus]

branch: master
commit ee727e1a7762383634a0548eeb2d4e60bc30c84d
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Add async to load-path when recompiling itself.
    
    * async-bytecomp.el (package--compile): Do it.
---
 async-bytecomp.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index dda71f2..f1b29a5 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -139,13 +139,17 @@ All *.elc files are systematically deleted before 
proceeding."
         async-bytecomp-allowed-packages)))
 
 (defadvice package--compile (around byte-compile-async)
-  (let ((cur-package (package-desc-name pkg-desc)))
+  (let ((cur-package (package-desc-name pkg-desc))
+        (pkg-dir (package-desc-dir pkg-desc)))
     (if (or (equal async-bytecomp-allowed-packages '(all))
             (memq cur-package (async-bytecomp-get-allowed-pkgs)))
         (progn
           (when (eq cur-package 'async)
             (fmakunbound 'async-byte-recompile-directory))
-          (load "async-bytecomp") ; emacs-24.3 don't reload new files.
+          (when (and (string= cur-package "async")
+                     (not (member pkg-dir load-path)))
+            (push pkg-dir load-path))
+          (load "async-bytecomp")
           (async-byte-recompile-directory (package-desc-dir pkg-desc) t))
         ad-do-it)))