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).
This commit is contained in:
Lars Ingebrigtsen 2019-06-18 01:05:58 +02:00
parent 8b8280ac7f
commit 56a90c4234
2 changed files with 9 additions and 0 deletions

View file

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