procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/comp.el (comp-final): Log when interactively invoked.

Browse source
This commit is contained in:
Andrea Corallo 2020-09-23 20:48:23 +02:00
parent 63c65b4fe0
commit 9d4fd669cf
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/comp.el
View file

@ -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.