[fu] batch-byte-compile: add ask-user-about-lock hack

pkryger · Nov 20, 2024 · f62c339 · f62c339
1 parent f827157
commit f62c339
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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==="