From 58d85f4dbb878eca08c770b9de8f734ca78840db Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 7 Oct 2020 07:41:00 +0200 Subject: [PATCH] * Do use echo area for async compilation started/finished messages * lisp/emacs-lisp/comp.el (comp-run-async-workers) (native-compile-async): Do not write into the echo area. --- lisp/emacs-lisp/comp.el | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 7074ff759e0..01ffd4d40ec 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2783,16 +2783,14 @@ display a message." when (>= (comp-async-runnings) (comp-effective-async-max-jobs)) do (cl-return))) ;; No files left to compile and all processes finished. - (let ((msg "Compilation finished.")) - (run-hooks 'comp-async-all-done-hook) - (with-current-buffer (get-buffer-create comp-async-buffer-name) - (save-excursion - (goto-char (point-max)) - (insert msg "\n"))) - ;; `comp-deferred-pending-h' should be empty at this stage. - ;; Reset it anyway. - (clrhash comp-deferred-pending-h) - (message msg)))) + (run-hooks 'comp-async-all-done-hook) + (with-current-buffer (get-buffer-create comp-async-buffer-name) + (save-excursion + (goto-char (point-max)) + (insert "Compilation finished.\n"))) + ;; `comp-deferred-pending-h' should be empty at this stage. + ;; Reset it anyway. + (clrhash comp-deferred-pending-h))) ;;; Compiler entry points. @@ -2928,8 +2926,7 @@ queued with LOAD %" (format "No write access for %s skipping." out-filename))))))) (when (zerop (comp-async-runnings)) - (comp-run-async-workers) - (message "Compilation started.")))) + (comp-run-async-workers)))) (provide 'comp) -- 2.39.5