mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Fix failures in recent files tests

Browse Source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-08-21 17:45:24 +02:00
parent a0023661a4
commit efe30626e6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/lisp/files-tests.el
View File

@ -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.