From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 31 Mar 2021 18:29:32 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (comp-final): Clean-up temporary file.
X-Git-Tag: emacs-28.0.90~2727^2~46
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e524f459149dfd83e2205d24c174074b10d5c6a;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-final): Clean-up temporary file.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 59e9dbc0138..213eb7b4126 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3666,7 +3666,9 @@ Prepare every function for final compilation and drive the C back-end."
                    (call-process (expand-file-name invocation-name
                                                    invocation-directory)
 				 nil t t "--batch" "-l" temp-file))
-                  output
+                  (progn
+                    (delete-file temp-file)
+                    output)
 		(signal 'native-compiler-error (buffer-string)))
             (comp-log-to-buffer (buffer-string))))))))