From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 14 May 2020 08:11:55 +0000 (+0100)
Subject: * Allow for logging async compilation command line
X-Git-Tag: emacs-28.0.90~2727^2~637
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a64585c126200d0f4b65fd45f6380244fe1d26c;p=emacs.git

* 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.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 7de8e0177c1..38c89ec263b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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)