mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-05 12:04:03 -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) `(,(expand-file-name invocation-name invocation-directory)
"-Q" "--batch" "--eval" "-Q" "--batch" "--eval"
,(prin1-to-string ,(prin1-to-string
`(progn (setq kill-emacs-on-sigint nil) `(condition-case nil
(message "Ready!") (progn (setq kill-emacs-on-sigint nil)
(condition-case nil (message "Ready!")
(dotimes (_ 3) (sit-for 1)) (sleep-for 3))
(quit (message "%s" ,exit-msg))))))))) (quit (message "%s" ,exit-msg))))))))
(while (progn (accept-process-output proc 1.0) (while (progn (accept-process-output proc 1.0)
(goto-char (point-min)) (goto-char (point-min))
(not (re-search-forward "Ready!" nil t))) (not (re-search-forward "Ready!" nil t)))