aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/eshell/em-pred-tests.el6
1 files 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.
95 `(cl-letf 95 `(cl-letf
96 ,(mapcar 96 ,(mapcar
97 (lambda (override) 97 (lambda (override)
98 (let ((orig-function (symbol-function (car override)))) 98 `((symbol-function #',(car override))
99 `((symbol-function #',(car override)) 99 (let ((orig-function (symbol-function #',(car override))))
100 (lambda (file &rest rest) 100 (lambda (file &rest rest)
101 (apply 101 (apply
102 (if (and (stringp file) (string-prefix-p "/fake/" file)) 102 (if (and (stringp file) (string-prefix-p "/fake/" file))
103 ,(cadr override) 103 ,(cadr override)
104 ,orig-function) 104 orig-function)
105 file rest))))) 105 file rest)))))
106 overrides) 106 overrides)
107 ,@body)) 107 ,@body))