(etags-tags-completion-table): Show parsing progress.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2fce46e2fa6e0965a063ef5855881dc07de5a32b..09da454f20fc55d49973f7ed0c20137cc3eef834 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * progmodes/etags.el (tags-apropos, list-tags): Require
        apropos.
+       (etags-tags-completion-table): Show parsing progress.
 
 2004-05-20  Luc Teirlinck  <teirllm@auburn.edu>
 

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 49294d6625c957b4d8c1c93f5742e4a6a728387f..184077f6a3a4f3e50361754810b4643a51d5ebac 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1248,7 +1248,11 @@ where they were found."
 
 
 (defun etags-tags-completion-table ()
-  (let ((table (make-vector 511 0)))
+  (let ((table (make-vector 511 0))
+       (point-max (/ (float (point-max)) 100.0))
+       (msg-fmt (format 
+                 "Making tags completion table for %s...%%d%%%%"
+                 buffer-file-name)))
     (save-excursion
       (goto-char (point-min))
       ;; This monster regexp matches an etags tag line.
@@ -1264,11 +1268,12 @@ where they were found."
 \\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\
 \\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n"
              nil t)
-       (intern (if (match-beginning 5)
-                   ;; There is an explicit tag name.
-                   (buffer-substring (match-beginning 5) (match-end 5))
-                 ;; No explicit tag name.  Best guess.
-                 (buffer-substring (match-beginning 3) (match-end 3)))
+       (intern (prog1 (if (match-beginning 5)
+                          ;; There is an explicit tag name.
+                          (buffer-substring (match-beginning 5) (match-end 5))
+                        ;; No explicit tag name.  Best guess.
+                        (buffer-substring (match-beginning 3) (match-end 3)))
+                 (message msg-fmt (/ (point) point-max)))
                table)))
     table))