diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 12:19:37 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 12:19:37 +0200 |
commit | dc9b7b0068d4da76b9979bc6effc3b6e28f45325 (patch) | |
tree | e3b8b19c9ac0d304c82c6d0ce3326e336a76ea59 /lisp/finder.el | |
parent | 5da1230f6182c772f56b10ae5026780ac252d8dc (diff) | |
download | emacs-dc9b7b0068d4da76b9979bc6effc3b6e28f45325.tar.gz |
Output progress reports when scanning for finder/custom
* lisp/cus-dep.el (custom-make-dependencies): Ditto.
* lisp/finder.el (finder-compile-keywords): Instead of outputting
the directories being scanned, output progress reports on the
number of files being scanned. This makes the output more similar
to the autoload scraping.
Diffstat (limited to 'lisp/finder.el')
-rw-r--r-- | lisp/finder.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 54a0758949a..26ff5a18f1d 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -189,11 +189,11 @@ from; the default is `load-path'." (setq package--builtins nil) (setq finder-keywords-hash (make-hash-table :test 'eq)) (let ((el-file-regexp "^\\([^=].*\\)\\.el\\(\\.\\(gz\\|Z\\)\\)?$") + (file-count 0) package-override files base-name ; processed summary keywords package version entry desc) (dolist (d (or dirs load-path)) (when (file-exists-p (directory-file-name d)) - (message "Scanning %s for finder" d) (setq package-override (intern-soft (cdr-safe @@ -201,6 +201,10 @@ from; the default is `load-path'." finder--builtins-alist)))) (setq files (directory-files d nil el-file-regexp)) (dolist (f files) + (setq file-count (1+ file-count)) + (when (zerop (mod file-count 100)) + (byte-compile-info-message "Scanned %s files for finder" + file-count)) (unless (or (string-match finder-no-scan-regexp f) (null (setq base-name (and (string-match el-file-regexp f) |