[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master eef48e1 1/2: Tweak progress reporting in update-dir
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master eef48e1 1/2: Tweak progress reporting in update-directory-autoloads |
Date: |
Wed, 19 Jun 2019 07:49:06 -0400 (EDT) |
branch: master
commit eef48e124da251605ea05579aac196f2f8e2f534
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Tweak progress reporting in update-directory-autoloads
* lisp/emacs-lisp/autoload.el (update-directory-autoloads): Use
progress reporter so say what percentage the progress is at.
---
lisp/emacs-lisp/autoload.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 4661f89..21b8cac 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -1061,7 +1061,6 @@ write its autoloads into the specified file instead."
;; Files with no autoload cookies or whose autoloads go to other
;; files because of file-local autoload-generated-file settings.
(no-autoloads nil)
- (file-count 0)
(autoload-modified-buffers nil)
(generated-autoload-file
(if (called-interactively-p 'interactive)
@@ -1125,12 +1124,14 @@ write its autoloads into the specified file instead."
(push file done)
(setq files (delete file files)))))
;; Elements remaining in FILES have no existing autoload sections yet.
- (let ((no-autoloads-time (or last-time '(0 0 0 0))) file-time)
+ (let ((no-autoloads-time (or last-time '(0 0 0 0)))
+ (progress (make-progress-reporter
+ (byte-compile-info-string "Scraping files for
autoloads")
+ 0 (length files) nil 10))
+ (file-count 0)
+ file-time)
(dolist (file files)
- (setq file-count (1+ file-count))
- (when (zerop (mod file-count 100))
- (byte-compile-info-message "Scraped autoloads from %d files"
- file-count))
+ (progress-reporter-update progress (setq file-count (1+ file-count)))
(cond
;; Passing nil as second argument forces
;; autoload-generate-file-autoloads to look for the right
@@ -1141,6 +1142,7 @@ write its autoloads into the specified file instead."
(if (time-less-p no-autoloads-time file-time)
(setq no-autoloads-time file-time)))
(t (setq changed t))))
+ (progress-reporter-done progress)
(when no-autoloads
;; Sort them for better readability.