mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

* Fix excessive echo area usage

Browse source 
* lisp/emacs-lisp/comp.el (comp-run-async-workers): Use
	`with-temp-file' to fill temp-file.
This commit is contained in:
Andrea Corallo 2020-08-14 08:29:28 +02:00
parent 1712311f00
commit 3882e8fd24
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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