Add comments, no--code-change.

diff --git a/async-bytecomp.el b/async-bytecomp.el
index b7e8ae5f88bf9b7151c393a478794c32f0ab78e9..33562c17c47508a9a85c954a665b079a26bd36a0 100644 (file)
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -49,6 +49,8 @@
            unless dir return nil
            for f in dir
            when (file-exists-p f) do (delete-file f))
+  ;; Ensure async is reloaded when async.elc is deleted.
+  ;; This happen when recompiling its directory.
   (load (locate-library "async"))
   (let ((call-back
          `(lambda (&optional ignore)

diff --git a/async.el b/async.el
index bb97674c8379f8e62d208872fde4eb05c2c32630..c2ae57673d7dc5457faa7b8ab0c680782dab6b2f 100644 (file)
--- a/async.el
+++ b/async.el
@@ -268,6 +268,8 @@ returns nil.  It can still be useful, however, as an argument to
                        (expand-file-name invocation-name
                                          invocation-directory))
               ,finish-func
+              ;; Ensure we use the right file when the .elc have
+              ;; been deleted by using `locate-library'.
               "-Q" "-l" ,(locate-library "async")
               "-batch" "-f" "async-batch-invoke"
               (if async-send-over-pipe