diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-dep.el | 12 | ||||
| -rw-r--r-- | lisp/finder.el | 6 |
2 files changed, 14 insertions, 4 deletions
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index e26837b1aac..161c5bbec69 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -55,12 +55,12 @@ ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)" Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (let ((enable-local-eval nil) (enable-local-variables :safe) + (file-count 0) subdir) (with-temp-buffer ;; Use up command-line-args-left else Emacs can try to open ;; the args as directories after we are done. (while (setq subdir (pop command-line-args-left)) - (message "Scanning %s for custom" subdir) (let ((files (directory-files subdir nil "\\`[^=.].*\\.el\\'")) (default-directory (file-name-as-directory (expand-file-name subdir))) @@ -68,6 +68,10 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (regexp-opt preloaded-file-list t) "\\.el\\'"))) (dolist (file files) + (setq file-count (1+ file-count)) + (when (zerop (mod file-count 100)) + (byte-compile-info-message "Scanned %s files for custom" + file-count)) (unless (or (string-match custom-dependencies-no-scan-regexp file) (string-match preloaded (format "%s/%s" subdir file)) (not (file-exists-p file))) @@ -115,7 +119,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" "variable" type))))))))))) (error nil))))))))) - (message "Generating %s..." generated-custom-dependencies-file) + (byte-compile-info-message "Generating %s..." + generated-custom-dependencies-file) (set-buffer (find-file-noselect generated-custom-dependencies-file)) (setq buffer-undo-list t) (erase-buffer) @@ -204,7 +209,8 @@ elements the files that have variables or faces that contain that version. These files should be loaded before showing the customization buffer that `customize-changed-options' generates.\")\n\n")) (save-buffer) - (message "Generating %s...done" generated-custom-dependencies-file)) + (byte-compile-info-message "Generating %s...done" + generated-custom-dependencies-file)) (provide 'cus-dep) 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) |