Add to load-path and load only async.

* async-bytecomp.el (package--compile): Do it, add comments.

diff --git a/async-bytecomp.el b/async-bytecomp.el
index f1b29a5769f8bb71df5f2fb7612aff76cfcb700a..53d288da706b58182a294f718cdb270af53a7fc9 100644 (file)
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -146,10 +146,13 @@ All *.elc files are systematically deleted before proceeding."
         (progn
           (when (eq cur-package 'async)
             (fmakunbound 'async-byte-recompile-directory))
-          (when (and (string= cur-package "async")
-                     (not (member pkg-dir load-path)))
-            (push pkg-dir load-path))
-          (load "async-bytecomp")
+          ;; Add to `load-path' the latest version of async and
+          ;; reload it when reinstalling async.
+          (when (string= cur-package "async")
+            (cl-pushnew pkg-dir load-path)
+            (load "async-bytecomp"))
+          ;; `async-byte-recompile-directory' will add directory
+          ;; as needed to `load-path'.
           (async-byte-recompile-directory (package-desc-dir pkg-desc) t))
         ad-do-it)))