diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-23 20:48:23 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-23 20:48:23 +0200 |
| commit | 9d4fd669cf9b97a89e8d1481b3ffedfe7a455152 (patch) | |
| tree | 4e3e6a424b6d8c6834af2f76ca7df1c6edff83d8 /lisp/emacs-lisp/comp.el | |
| parent | 63c65b4fe0e27b70a99463a8f7de4750811fd1e0 (diff) | |
| download | emacs-9d4fd669cf9b97a89e8d1481b3ffedfe7a455152.tar.gz emacs-9d4fd669cf9b97a89e8d1481b3ffedfe7a455152.tar.bz2 emacs-9d4fd669cf9b97a89e8d1481b3ffedfe7a455152.zip | |
* lisp/emacs-lisp/comp.el (comp-final): Log when interactively invoked.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 14 |
1 files 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. |