# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1085128606 0
# Node ID 7c48b959658de8019869d494f12c6e9a34655a8f
# Parent  7b91de4a810fdf8db4c78522988d35f834a70b4c
(etags-tags-completion-table): Show parsing progress.

diff -r 7b91de4a810f -r 7c48b959658d lisp/ChangeLog
--- a/lisp/ChangeLog	Fri May 21 07:25:07 2004 +0000
+++ b/lisp/ChangeLog	Fri May 21 08:36:46 2004 +0000
@@ -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 -r 7b91de4a810f -r 7c48b959658d lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Fri May 21 07:25:07 2004 +0000
+++ b/lisp/progmodes/etags.el	Fri May 21 08:36:46 2004 +0000
@@ -1248,7 +1248,11 @@
 
 
 (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 @@
 \\([-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))