Fix Eshell predicate tests when running from 'make check'
* test/lisp/eshell/em-pred-tests.el (eshell-partial-let-func): Get original function after macro-expansion.
This commit is contained in:
parent
c5253aa01e
commit
1dd8a00325
1 changed files with 3 additions and 3 deletions
|
@ -95,13 +95,13 @@ behavior for real files.
|
|||
`(cl-letf
|
||||
,(mapcar
|
||||
(lambda (override)
|
||||
(let ((orig-function (symbol-function (car override))))
|
||||
`((symbol-function #',(car override))
|
||||
`((symbol-function #',(car override))
|
||||
(let ((orig-function (symbol-function #',(car override))))
|
||||
(lambda (file &rest rest)
|
||||
(apply
|
||||
(if (and (stringp file) (string-prefix-p "/fake/" file))
|
||||
,(cadr override)
|
||||
,orig-function)
|
||||
orig-function)
|
||||
file rest)))))
|
||||
overrides)
|
||||
,@body))
|
||||
|
|
Loading…
Add table
Reference in a new issue