From 29f7024b6cfc01d6cae10603733b35784b4e4aef Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 3 Oct 2020 21:33:08 +0200 Subject: [PATCH] * Fix a test in test/lisp/subr-tests.el * test/lisp/subr-tests.el (subr-tests-bug22027): Redefine `read-string' with a lambda with the same number of arguments. --- test/lisp/subr-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 035c064d75c..c3dfd27a850 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -338,7 +338,7 @@ cf. Bug#25477." "Test for https://debbugs.gnu.org/22027 ." (let ((default "foo") res) (cl-letf (((symbol-function 'read-string) - (lambda (_prompt _init _hist def) def))) + (lambda (_prompt _init _hist def _inher-input) def))) (setq res (read-passwd "pass: " 'confirm (mapconcat #'string default ""))) (should (string= default res))))) -- 2.39.5