From: Jim Porter <jporterbugs@gmail.com>
Date: Sun, 17 Apr 2022 19:51:17 +0000 (+0200)
Subject: Fix Eshell predicate tests when running from 'make check'
X-Git-Tag: emacs-29.0.90~1931^2~448
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1dd8a003253db74ccb724b5f0573fb2005fac07c;p=emacs.git

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 fbf8945215e..7f88ac44755 100644
--- 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))