From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 21 Aug 2021 15:45:24 +0000 (+0200)
Subject: Fix failures in recent files tests
X-Git-Tag: emacs-28.0.90~1375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efe30626e605e1b8a8601305d17596a120001640;p=emacs.git

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 174ec5b074d..aa5150b4b73 100644
--- 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.