procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Do use echo area for async compilation started/finished messages

Browse source 
* lisp/emacs-lisp/comp.el (comp-run-async-workers)
	(native-compile-async): Do not write into the echo area.
This commit is contained in:
Andrea Corallo 2020-10-07 07:41:00 +02:00
parent bd27257965
commit 58d85f4dbb
1 changed files with 9 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2783,16 +2783,14 @@ display a message."
when (>= (comp-async-runnings) (comp-effective-async-max-jobs)) when (>= (comp-async-runnings) (comp-effective-async-max-jobs))
do (cl-return))) do (cl-return)))
;; No files left to compile and all processes finished. ;; No files left to compile and all processes finished.
(let ((msg "Compilation finished."))
(run-hooks 'comp-async-all-done-hook) (run-hooks 'comp-async-all-done-hook)
(with-current-buffer (get-buffer-create comp-async-buffer-name) (with-current-buffer (get-buffer-create comp-async-buffer-name)
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(insert msg "\n"))) (insert "Compilation finished.\n")))
;; `comp-deferred-pending-h' should be empty at this stage. ;; `comp-deferred-pending-h' should be empty at this stage.
;; Reset it anyway. ;; Reset it anyway.
(clrhash comp-deferred-pending-h) (clrhash comp-deferred-pending-h)))
(message msg))))
;;; Compiler entry points. ;;; Compiler entry points.
@ -2928,8 +2926,7 @@ queued with LOAD %"
(format "No write access for %s skipping." (format "No write access for %s skipping."
out-filename))))))) out-filename)))))))
(when (zerop (comp-async-runnings)) (when (zerop (comp-async-runnings))
(comp-run-async-workers) (comp-run-async-workers))))
(message "Compilation started."))))
(provide 'comp) (provide 'comp)