From 79e6110f42bd7c8eb246736a498c61c8609dab7c Mon Sep 17 00:00:00 2001
From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Fri, 12 Sep 2014 13:24:36 +0400
Subject: [PATCH] Add comments, no--code-change.

---
 async-bytecomp.el | 2 ++
 async.el          | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index b7e8ae5f8..33562c17c 100644
--- 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 bb97674c8..c2ae57673 100644
--- 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
-- 
2.39.2