From 1dd8a003253db74ccb724b5f0573fb2005fac07c Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Sun, 17 Apr 2022 21:51:17 +0200 Subject: [PATCH] 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. --- test/lisp/eshell/em-pred-tests.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.39.2