diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-08-14 08:29:28 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-08-14 08:33:07 +0200 |
| commit | 3882e8fd244a66edb6ba60f40182a4d0772cfcb1 (patch) | |
| tree | 72a1029748ca911400f410d4b97ccf380db98afb /lisp/emacs-lisp/comp.el | |
| parent | 1712311f0084af850925f4c472f6ca186ab09c54 (diff) | |
| download | emacs-3882e8fd244a66edb6ba60f40182a4d0772cfcb1.tar.gz emacs-3882e8fd244a66edb6ba60f40182a4d0772cfcb1.tar.bz2 emacs-3882e8fd244a66edb6ba60f40182a4d0772cfcb1.zip | |
* Fix excessive echo area usage
* lisp/emacs-lisp/comp.el (comp-run-async-workers): Use
`with-temp-file' to fill temp-file.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 599d35b61c5..a92392f63ac 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) |