diff options
Diffstat (limited to 'test/lisp/eshell/em-pred-tests.el')
| -rw-r--r-- | test/lisp/eshell/em-pred-tests.el | 6 |
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. `(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)) |