From 3aeeae4f76609ca7930ad705b37cdd6525810211 Mon Sep 17 00:00:00 2001 From: Akira Komamura Date: Sun, 2 Jun 2024 00:33:56 +0900 Subject: [PATCH] fix: Update on renaming functions in upstream comp-run.el --- pkgs/emacs/build/comp-native.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/pkgs/emacs/build/comp-native.el b/pkgs/emacs/build/comp-native.el index a007dc9..2813f62 100644 --- a/pkgs/emacs/build/comp-native.el +++ b/pkgs/emacs/build/comp-native.el @@ -4,9 +4,13 @@ ;; ;; Based on code from https://www.emacswiki.org/emacs/GccEmacs#h5o-14 +(require 'comp-run) + +(if (fboundp 'comp--async-runnings) + (defalias 'twist--comp-async-runnings #'comp--async-runnings) + (defalias 'twist--comp-async-runnings #'comp-async-runnings)) + (defun run-native-compile-sync () - (require 'bytecomp) - (require 'comp) (native-compile-async (or (pop command-line-args-left) (error "Specify a source directory as the argument")) nil nil @@ -14,6 +18,6 @@ (and (string-match-p "^[^.]" (file-name-nondirectory name)) (not (string-suffix-p "-pkg.el" name))))) (while (or comp-files-queue - (> (comp-async-runnings) 0)) + (> (twist--comp-async-runnings) 0)) ;; Calibration may be needed (sleep-for 0.3)))