mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 19:00:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix Eshell predicate tests when running from 'make check'

Browse source 
* test/lisp/eshell/em-pred-tests.el (eshell-partial-let-func): Get
original function after macro-expansion.
This commit is contained in:
Jim Porter 2022-04-17 21:51:17 +02:00 • committed by Lars Ingebrigtsen
parent c5253aa01e
commit 1dd8a00325
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/eshell/em-pred-tests.el
View file

@ -95,13 +95,13 @@ behavior for real files.
`(cl-letf `(cl-letf
,(mapcar ,(mapcar
(lambda (override) (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) (lambda (file &rest rest)
(apply (apply
(if (and (stringp file) (string-prefix-p "/fake/" file)) (if (and (stringp file) (string-prefix-p "/fake/" file))
,(cadr override) ,(cadr override)
,orig-function) orig-function)
file rest))))) file rest)))))
overrides) overrides)
,@body)) ,@body))