From 9d4fd669cf9b97a89e8d1481b3ffedfe7a455152 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 23 Sep 2020 20:48:23 +0200 Subject: [PATCH] * 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 d4f003f7717..2bba298ac0a 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. -- 2.39.5