emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 15:56:35 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix test breakage in files-tests

Browse source 
* test/lisp/files-tests.el (files-tests--with-buffer-offer-save):
Redefine 'read-key-sequence-vector' instead of 'read-key'
after recent changes in 'map-y-or-n-p' (bug#81168).
This commit is contained in:
Juri Linkov 2026-07-07 18:39:32 +03:00
parent 549d2f8637
commit 0b30e299f5
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

@ -2155,10 +2155,10 @@ CALLERS-DIR specifies the value to let-bind
(setq nb-saved-buffers 0)
(with-current-buffer (car buffers)
(cl-letf
(((symbol-function 'read-key)
(((symbol-function 'read-key-sequence-vector)
;; Increase counter and answer 'n' when prompted
;; to save a buffer.
(lambda (&rest _) (incf nb-saved-buffers) ?n))
(lambda (&rest _) (incf nb-saved-buffers) [?n]))
;; Do not kill Emacs.
((symbol-function 'kill-emacs) #'ignore)
(save-some-buffers-default-predicate callers-dir))