diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-05-14 09:11:55 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-05-15 20:06:49 +0100 |
| commit | 9a64585c126200d0f4b65fd45f6380244fe1d26c (patch) | |
| tree | f7d6b481310ee628905e146cfae2327b2ad3da1f /lisp/emacs-lisp | |
| parent | ff9e40e9fefacfda9cce38d8884694b1c5207b1c (diff) | |
| download | emacs-9a64585c126200d0f4b65fd45f6380244fe1d26c.tar.gz emacs-9a64585c126200d0f4b65fd45f6380244fe1d26c.tar.bz2 emacs-9a64585c126200d0f4b65fd45f6380244fe1d26c.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 3 |
1 files changed, 3 insertions, 0 deletions
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) |