scratch/etags-regen 1da73b4 2/5: Better feedback

[Dmitry Gutov]

branch: scratch/etags-regen
commit 1da73b4b65742651bb0569b15650b33fdd38c131
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Better feedback
---
 lisp/progmodes/etags.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 3255c46..416106e 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -2169,7 +2169,10 @@ file name, add `tag-partial-file-name-match-p' to the 
list value.")
     (when (and (not (or tags-file-name
                         tags-table-list))
                (setq proj (project-current)))
-      (etags--project-tags-generate proj)
+      (message "Generating new tags table...")
+      (let ((start (time-to-seconds)))
+        (etags--project-tags-generate proj)
+        (message "...done (%.2f s)" (- (time-to-seconds) start)))
       ;; Invalidate the scanned tags after any change is written to disk.
       (add-hook 'after-save-hook #'etags--project-update-file)
       (add-hook 'before-save-hook #'etags--project-mark-as-new)