procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

propagate load-path into async workers + better messaging

Browse source
This commit is contained in:
Andrea Corallo 2019-11-12 19:55:57 +01:00
parent 0cf4a9fdfc
commit 4320307843
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/emacs-lisp/comp.el
View file

@ -1779,18 +1779,23 @@ Prepare every function for final compilation and drive the C back-end."
(while (setf f (with-mutex comp-src-pool-mutex
(pop comp-src-pool)))
(when (comp-to-file-p f)
(let* ((code `(let ((comp-speed ,comp-speed)
(comp-debug ,comp-debug)
(comp-verbose ,comp-verbose))
(let* ((code `(progn
(require 'comp)
(setq comp-speed ,comp-speed)
(setq comp-debug ,comp-debug)
(setq comp-verbose ,comp-verbose)
(setq load-path ',load-path)
(message "Compiling %s started." ,f)
(native-compile ,f)))
(cmd (concat invocation-directory invocation-name
" --batch --eval='"
(prin1-to-string code) "'"))
(prc (start-process-shell-command (concat "async compilation: " f)
"async-compile-buffer"
cmd)))
(prc (start-process (concat "Compiling: " f)
"async-compile-buffer"
(concat invocation-directory invocation-name)
"--batch"
"--eval"
(prin1-to-string code))))
(while (accept-process-output prc)
(thread-yield)))))))))
(thread-yield)))))))
"compilation thread"))
;;; Compiler entry points.