From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 18 Dec 2020 14:22:41 +0000 (+0100)
Subject: * Fix a test in auth-source-tests.el
X-Git-Tag: emacs-28.0.90~2727^2~236
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9676e4d7766cea647a4e2b9e27fad97479b418de;p=emacs.git

* Fix a test in auth-source-tests.el

	* test/lisp/auth-source-tests.el
	(auth-source-test-secrets-create-secret): Redefine `read-string'
	respecting the original number of arguments.
---

diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index deb1b91aab2..4c3005c3efe 100644
--- a/test/lisp/auth-source-tests.el
+++ b/test/lisp/auth-source-tests.el
@@ -320,7 +320,8 @@
     ;; Redefine `read-*' in order to avoid interactive input.
     (cl-letf (((symbol-function 'read-passwd) (lambda (_) passwd))
               ((symbol-function 'read-string)
-               (lambda (_prompt _initial _history default) default)))
+               (lambda (_prompt _initial _history default _inherit-input-method)
+		 default)))
       (setq auth-info
             (car (auth-source-search
                   :max 1 :host host :require '(:user :secret) :create t))))