[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master efe3062: Fix failures in recent files tests,
Lars Ingebrigtsen <=