diff options
author | Basil L. Contovounesios <contovob@tcd.ie> | 2022-04-20 13:20:57 +0300 |
---|---|---|
committer | Basil L. Contovounesios <contovob@tcd.ie> | 2022-04-20 13:20:57 +0300 |
commit | 11b88036e80a67add717db7a0d6184891349415e (patch) | |
tree | 1119c1bc083213c3f83f79cc87d698e210c7bf8e /test/lisp/files-tests.el | |
parent | b8524003dc410557c0670b7f2a60e861eb819fed (diff) | |
download | emacs-11b88036e80a67add717db7a0d6184891349415e.tar.gz |
; Fix repeated lambda argnames in files-tests.el.
Diffstat (limited to 'test/lisp/files-tests.el')
-rw-r--r-- | test/lisp/files-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index c5b0fe0bbbc..34c002be271 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -263,7 +263,7 @@ form.") nil)) (kill-emacs-args nil) ((symbol-function #'kill-emacs) - (lambda (&optional arg arg) (push arg kill-emacs-args))) + (lambda (&rest args) (push args kill-emacs-args))) (process (make-process :name "sleep" @@ -274,7 +274,7 @@ form.") (save-buffers-kill-emacs) (kill-process process) (should-not yes-or-no-p-prompts) - (should (equal kill-emacs-args '(nil))))) + (should (equal kill-emacs-args '((nil nil)))))) (ert-deftest files-tests-read-file-in-~ () "Test file prompting in directory named `~'. |