mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-31 01:32:00 -07:00
Code Issues Projects Releases Wiki Activity

keyboard-tests.el: Try and fix the failure on EMBA

Browse source 
* test/src/keyboard-tests.el (keyboard-sigint-to-quit): Fix a small
race condition and avoid `sit-for` returning early.
This commit is contained in:
Stefan Monnier 2026-05-13 10:45:38 -04:00
parent ce3098752c
commit ff96db93f2
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/src/keyboard-tests.el
View file

@ -92,11 +92,11 @@
`(,(expand-file-name invocation-name invocation-directory)
"-Q" "--batch" "--eval"
,(prin1-to-string
`(progn (setq kill-emacs-on-sigint nil)
(message "Ready!")
(condition-case nil
(dotimes (_ 3) (sit-for 1))
(quit (message "%s" ,exit-msg)))))))))
`(condition-case nil
(progn (setq kill-emacs-on-sigint nil)
(message "Ready!")
(sleep-for 3))
(quit (message "%s" ,exit-msg))))))))
(while (progn (accept-process-output proc 1.0)
(goto-char (point-min))
(not (re-search-forward "Ready!" nil t)))