diff options
| author | Andrea Corallo | 2020-09-23 20:48:23 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-09-23 20:48:23 +0200 |
| commit | 9d4fd669cf9b97a89e8d1481b3ffedfe7a455152 (patch) | |
| tree | 4e3e6a424b6d8c6834af2f76ca7df1c6edff83d8 | |
| parent | 63c65b4fe0e27b70a99463a8f7de4750811fd1e0 (diff) | |
| download | emacs-9d4fd669cf9b97a89e8d1481b3ffedfe7a455152.tar.gz emacs-9d4fd669cf9b97a89e8d1481b3ffedfe7a455152.zip | |
* lisp/emacs-lisp/comp.el (comp-final): Log when interactively invoked.
| -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." | |||
| 2516 | (with-temp-file temp-file | 2516 | (with-temp-file temp-file |
| 2517 | (insert (prin1-to-string expr))) | 2517 | (insert (prin1-to-string expr))) |
| 2518 | (with-temp-buffer | 2518 | (with-temp-buffer |
| 2519 | (if (zerop | 2519 | (unwind-protect |
| 2520 | (call-process (expand-file-name invocation-name | 2520 | (if (zerop |
| 2521 | invocation-directory) | 2521 | (call-process (expand-file-name invocation-name |
| 2522 | nil t t "--batch" "-l" temp-file)) | 2522 | invocation-directory) |
| 2523 | output | 2523 | nil t t "--batch" "-l" temp-file)) |
| 2524 | (signal 'native-compiler-error (buffer-string))))))) | 2524 | output |
| 2525 | (signal 'native-compiler-error (buffer-string))) | ||
| 2526 | (comp-log-to-buffer (buffer-string))))))) | ||
| 2525 | 2527 | ||
| 2526 | 2528 | ||
| 2527 | ;;; Compiler type hints. | 2529 | ;;; Compiler type hints. |