branch: master
commit 79e6110f42bd7c8eb246736a498c61c8609dab7c
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add comments, no--code-change.
---
async-bytecomp.el | 2 ++
async.el | 2 ++
2 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/async-bytecomp.el b/async-bytecomp.el
index b7e8ae5..33562c1 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 bb97674..c2ae576 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
