emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master efe3062: Fix failures in recent files tests


From: Lars Ingebrigtsen
Subject: master efe3062: Fix failures in recent files tests
Date: Sat, 21 Aug 2021 11:45:32 -0400 (EDT)

branch: master
commit efe30626e605e1b8a8601305d17596a120001640
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 test/lisp/files-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 174ec5b..aa5150b 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]