branch: externals/leaf
commit ed1b50dac789b70a143a33e84f5680813b40d437
Author: Z572 <873216...@qq.com>
Commit: Z572 <873216...@qq.com>
Revert "fix testcases"
This reverts commit ad3b6a0bfef47cabc180a46057492c5de90acaa6.
---
leaf-tests.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/leaf-tests.el b/leaf-tests.el
index bf87adf..3a8e607 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -156,7 +156,6 @@ 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)
@@ -2342,7 +2341,7 @@ Example:
(leaf-init)))
((leaf-handler-leaf-path leaf)
- (let ((file (leaf-this-file)))
+ (let ((file (or load-file-name buffer-file-name
byte-compile-current-file)))
(unless (boundp 'leaf--paths) (defvar leaf--paths nil))
(when file
(add-to-list 'leaf--paths (cons 'leaf file)))))))
