* Allow for logging async compilation command line

* lisp/emacs-lisp/comp.el (comp-run-async-workers): When non zero
	verbose log async compilation command line invocation.
This commit is contained in:
Andrea Corallo 2020-05-14 09:11:55 +01:00
parent ff9e40e9fe
commit 9a64585c12

View file

@ -2317,6 +2317,9 @@ display a message."
(message "Compiling %s..." ,source-file)
(native-compile ,source-file ,(and load t))))
(source-file1 source-file) ;; Make the closure works :/
(_ (progn
(comp-log "\n")
(comp-log (prin1-to-string expr))))
(load1 load)
(process (make-process
:name (concat "Compiling: " source-file)