diff options
Diffstat (limited to 'test')
| -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. | |||
| 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)) |