branch: externals/leaf
commit ad3b6a0bfef47cabc180a46057492c5de90acaa6
Author: Naoya Yamashita <con...@gmail.com>
Commit: Naoya Yamashita <con...@gmail.com>
fix testcases
---
leaf-tests.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/leaf-tests.el b/leaf-tests.el
index 3a8e607..bf87adf 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -156,6 +156,7 @@ Example:
(setq leaf-expand-leaf-defun nil)
(setq leaf-expand-leaf-defvar nil)
(setq leaf-expand-leaf-path nil)
+(setq leaf-expand-leaf-defer-let nil)
(cort-deftest-with-macroexpand leaf/none
'(((leaf leaf)
@@ -2341,7 +2342,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)))))))
