branch: externals/el-job
commit 5b5438d5bc6a393c3e4f8cfe45013826ef7aa727
Author: Martin Edström <meedst...@runbox.eu>
Commit: Martin Edström <meedst...@runbox.eu>
Cope with comp deleting eln
---
el-job.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/el-job.el b/el-job.el
index ecc310e2c3..f88a086979 100644
--- a/el-job.el
+++ b/el-job.el
@@ -112,9 +112,14 @@ an .eln anyway, without your having to recompile on save."
;; overriding some other file's definition)
(string-prefix-p (symbol-name feature)
(symbol-name (cdr elem))))
- return (native-comp-unit-file
- (subr-native-comp-unit
- (symbol-function (cdr elem))))))
+ return (let ((eln (native-comp-unit-file
+ (subr-native-comp-unit
+ (symbol-function (cdr elem))))))
+ ;; FIXME: comp sometimes deletes old eln during
+ ;; recompilation, but does not load the new eln,
+ ;; at least not in a way that updates
load-history
+ (when (file-exists-p eln)
+ eln))))
file)))
(defvar el-job--onetime-canary nil)
