Skip to content

Commit

Permalink
Merge pull request #162 from emacs-twist/comp-run-renames
Browse files Browse the repository at this point in the history
fix: Update on renaming functions in upstream comp-run.el
  • Loading branch information
akirak authored Jun 4, 2024
2 parents 4c16ff2 + 3aeeae4 commit cdaba19
Showing 1 changed file with 7 additions and 3 deletions.
10 changes: 7 additions & 3 deletions pkgs/emacs/build/comp-native.el
Original file line number Diff line number Diff line change
Expand Up @@ -4,16 +4,20 @@
;;
;; 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
(lambda (name)
(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)))

0 comments on commit cdaba19

Please sign in to comment.