Fix failures in recent files tests

* test/lisp/files-tests.el (files-tests-buffer-offer-save)
(files-tests-save-buffers-kill-emacs--asks-to-save-buffers):
`read-event' is called with arguments.

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 174ec5b074d60980ecf3fd38978ceaa6aa31db0f..aa5150b4b73e11fb99f0caaf3c39f573cd53d236 100644 (file)
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -1749,7 +1749,7 @@ PRED is nil."
              buffers-offer
              save-some-buffers
              ;; Increase counter and answer 'n' when prompted to save a buffer.
-             (('read-event . (lambda () (cl-incf nb-saved-buffers) ?n)))
+             (('read-event . (lambda (&rest _) (cl-incf nb-saved-buffers) ?n)))
              args-res)))))))
 
 (ert-deftest files-tests-save-buffers-kill-emacs--asks-to-save-buffers ()
@@ -1766,7 +1766,7 @@ Prompt users for any modified buffer with `buffer-offer-save' non-nil."
        buffers-offer
        save-buffers-kill-emacs
        ;; Increase counter and answer 'n' when prompted to save a buffer.
-       (('read-event . (lambda () (cl-incf nb-saved-buffers) ?n))
+       (('read-event . (lambda (&rest _) (cl-incf nb-saved-buffers) ?n))
         ('kill-emacs . #'ignore)) ; Do not kill Emacs.
        `((nil nil ,nb-might-save)
          ;; `save-some-buffers-default-predicate' (i.e. the 2nd element) is ignored.