[elpa] externals/leaf 0bd023a 05/13: fix testcases

[Stefan Monnier]

branch: externals/leaf
commit 0bd023a6b4720c42cc020a127cfc6b199f95bf06
Author: Z572 <873216071@qq.com>
Commit: Z572 <873216071@qq.com>

    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)))))))