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.

diff --git a/test/lisp/eshell/em-pred-tests.el b/test/lisp/eshell/em-pred-tests.el
index fbf8945215ea2c7108685ed82cf32fba9334abb4..7f88ac44755a18a8c5d25565401bcad68eb3d5c1 100644 (file)
--- a/test/lisp/eshell/em-pred-tests.el
+++ b/test/lisp/eshell/em-pred-tests.el
@@ -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))