(tramp-test39-make-lock-file-name): Update

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 6f66352c4539ac775abe141ecf2b71f583141896..ebf2a583795ed1537942a0d34540f063b394f9ed 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -6556,19 +6556,22 @@ INPUT, if non-nil, is a string sent to the process."
 
            ;; Steal the file lock.
            (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password)
-           (cl-letf (((symbol-function #'read-char) (lambda (&rest _args) ?s)))
+           (cl-letf (((symbol-function #'read-multiple-choice)
+                       (lambda (&rest _args) '(?s))))
              (with-no-warnings (lock-file tmp-name1)))
            (should (eq (with-no-warnings (file-locked-p tmp-name1)) t))
 
            ;; Ignore the file lock.
            (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password)
-           (cl-letf (((symbol-function #'read-char) (lambda (&rest _args) ?p)))
+           (cl-letf (((symbol-function #'read-multiple-choice)
+                       (lambda (&rest _args) '(?p))))
              (with-no-warnings (lock-file tmp-name1)))
            (should (stringp (with-no-warnings (file-locked-p tmp-name1))))
 
            ;; Quit the file lock machinery.
            (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password)
-           (cl-letf (((symbol-function #'read-char) (lambda (&rest _args) ?q)))
+           (cl-letf (((symbol-function #'read-multiple-choice)
+                       (lambda (&rest _args) '(?q))))
              (with-no-warnings
                (should-error
                 (lock-file tmp-name1)