feature/native-comp 9d4fd66 02/11: * lisp/emacs-lisp/comp.el (comp-final): Log when interactively invoked.

[Andrea Corallo]

branch: feature/native-comp
commit 9d4fd669cf9b97a89e8d1481b3ffedfe7a455152
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * lisp/emacs-lisp/comp.el (comp-final): Log when interactively invoked.
---
 lisp/emacs-lisp/comp.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index d4f003f..2bba298 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2516,12 +2516,14 @@ Prepare every function for final compilation and drive 
the C back-end."
       (with-temp-file temp-file
         (insert (prin1-to-string expr)))
       (with-temp-buffer
-        (if (zerop
-               (call-process (expand-file-name invocation-name
-                                               invocation-directory)
-                             nil t t "--batch" "-l" temp-file))
-            output
-          (signal 'native-compiler-error (buffer-string)))))))
+        (unwind-protect
+            (if (zerop
+                 (call-process (expand-file-name invocation-name
+                                                 invocation-directory)
+                               nil t t "--batch" "-l" temp-file))
+                output
+              (signal 'native-compiler-error (buffer-string)))
+          (comp-log-to-buffer (buffer-string)))))))
 
 
 ;;; Compiler type hints.