branch: externals/leaf
commit 0bd023a6b4720c42cc020a127cfc6b199f95bf06
Author: Z572 <[email protected]>
Commit: Z572 <[email protected]>
fix testcases
---
leaf-tests.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/leaf-tests.el b/leaf-tests.el
index 3a8e607..3fb5534 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -2341,7 +2341,7 @@ Example:
(leaf-init)))
((leaf-handler-leaf-path leaf)
- (let ((file (or load-file-name buffer-file-name
byte-compile-current-file)))
+ (let ((file (leaf-this-file)))
(unless (boundp 'leaf--paths) (defvar leaf--paths nil))
(when file
(add-to-list 'leaf--paths (cons 'leaf file)))))))
