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

Tweak progress reporting in update-directory-autoloads

Browse source 
* lisp/emacs-lisp/autoload.el (update-directory-autoloads): Use
progress reporter so say what percentage the progress is at.
This commit is contained in:
Lars Ingebrigtsen 2019-06-18 16:13:54 +02:00
parent d3a7f3e6cd
commit eef48e124d
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/autoload.el
View file

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