From 56a90c4234afb41b6d41a356ab4a35e71923552c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 18 Jun 2019 01:05:58 +0200 Subject: Output progress messages when scraping autoloads during bootstrap * lisp/emacs-lisp/byte-run.el (byte-compile-info-message): New function to outout informational messages during byte compilation. * lisp/emacs-lisp/autoload.el (update-directory-autoloads): Use it to report progress when scraping autoloads during bootstrap (which may take half a minute). --- lisp/emacs-lisp/byte-run.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/emacs-lisp/byte-run.el') diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 3a2043bad75..30a9f984793 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -540,6 +540,10 @@ Otherwise, return nil. For internal use only." (mapconcat (lambda (char) (format "`?\\%c'" char)) sorted ", "))))) +(defun byte-compile-info-message (&rest args) + "Message format ARGS in a way that looks pleasing in the compilation output." + (message "%s" (concat " INFO " (apply #'format args)))) + ;; I nuked this because it's not a good idea for users to think of using it. ;; These options are a matter of installation preference, and have nothing to -- cgit v1.2.3