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:
Jim Porter 2022-04-17 21:51:17 +02:00 committed by Lars Ingebrigtsen
parent c5253aa01e
commit 1dd8a00325

View file

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