[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 3882e8f 2/2: * Fix excessive echo area usage
From: |
Andrea Corallo |
Subject: |
feature/native-comp 3882e8f 2/2: * Fix excessive echo area usage |
Date: |
Fri, 14 Aug 2020 02:42:40 -0400 (EDT) |
branch: feature/native-comp
commit 3882e8fd244a66edb6ba60f40182a4d0772cfcb1
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Fix excessive echo area usage
* lisp/emacs-lisp/comp.el (comp-run-async-workers): Use
`with-temp-file' to fill temp-file.
---
lisp/emacs-lisp/comp.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 599d35b..a92392f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2608,13 +2608,16 @@ display a message."
(message "Compiling %s..." ,source-file)
(native-compile ,source-file ,(and load t))))
(source-file1 source-file) ;; Make the closure works :/
- (_ (progn
- (comp-log "\n")
- (comp-log (prin1-to-string expr))))
(temp-file (make-temp-file
(concat "emacs-async-comp-"
(file-name-base source-file) "-")
- nil ".el" (prin1-to-string expr)))
+ nil ".el"))
+ (expr-string (prin1-to-string expr))
+ (_ (progn
+ (with-temp-file temp-file
+ (insert expr-string))
+ (comp-log "\n")
+ (comp-log expr-string)))
(load1 load)
(process (make-process
:name (concat "Compiling: " source-file)