From f62c339e672d84c6eecee4d5d341f60ca25427ad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw=20Kryger?= <pkryger@gmail.com>
Date: Wed, 20 Nov 2024 13:10:18 +0100
Subject: [PATCH] [fu] batch-byte-compile: add ask-user-about-lock hack

---
 .ci/batch-byte-compile.sh | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/.ci/batch-byte-compile.sh b/.ci/batch-byte-compile.sh
index 09824271..8d268db2 100755
--- a/.ci/batch-byte-compile.sh
+++ b/.ci/batch-byte-compile.sh
@@ -44,6 +44,10 @@ for pattern in \
          user-emacs-directory "'"${EMACS_DIR}"'/"
          exordium-spell-check nil
          treesit-auto-install nil)
+   (load "userlock")
+   (defun ask-user-about-lock (file opponent)
+     (sleep-for (+ 1.0 (/ (random 100) 100.0)))
+     t)
    (load-file "'"${EMACS_DIR}"'/init.el")
    (setq exordium--require-package-archives package-archives)
    (message "===Byte compilation start: %s==="