File tree Expand file tree Collapse file tree 1 file changed +7
-3
lines changed
Expand file tree Collapse file tree 1 file changed +7
-3
lines changed Original file line number Diff line number Diff line change 44; ;
55; ; Based on code from https://www.emacswiki.org/emacs/GccEmacs#h5o-14
66
7+ (require 'comp-run )
8+
9+ (if (fboundp 'comp--async-runnings )
10+ (defalias 'twist--comp-async-runnings #'comp--async-runnings )
11+ (defalias 'twist--comp-async-runnings #'comp-async-runnings ))
12+
713(defun run-native-compile-sync ()
8- (require 'bytecomp )
9- (require 'comp )
1014 (native-compile-async (or (pop command-line-args-left)
1115 (error " Specify a source directory as the argument " ))
1216 nil nil
1317 (lambda (name )
1418 (and (string-match-p " ^[^.]" (file-name-nondirectory name))
1519 (not (string-suffix-p " -pkg.el" name)))))
1620 (while (or comp-files-queue
17- (> (comp-async-runnings) 0 ))
21+ (> (twist-- comp-async-runnings) 0 ))
1822 ; ; Calibration may be needed
1923 (sleep-for 0.3 )))
You can’t perform that action at this time.
0 commit comments