2 files changed, 16 insertions, 9 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0dd9c28a36..5f6bdb7f99c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,12 @@
         (progress-reporter-force-update, progress-reporter-do-update)
         (progress-reporter-done): New functions.
 
+        * tar-mode.el (tar-summarize-buffer): Use progress reporter.
+
+        * progmodes/etags.el (etags-tags-completion-table): Use progress
+        reporter.
+        (etags-tags-apropos): Likewise.
+
 2004-10-08  Alan Mackenzie  <acm@muc.de>
 
         * isearch.el (isearch-yank-line): C-y yanks to next EOL, not end
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index ddbd2ce6f35..0569d26db61 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1229,10 +1229,10 @@ where they were found."
 
 (defun etags-tags-completion-table ()
   (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)))
+        (progress-reporter
+         (make-progress-reporter
+          (format "Making tags completion table for %s..." buffer-file-name)
+          (point-min) (point-max))))
     (save-excursion
       (goto-char (point-min))
       ;; This monster regexp matches an etags tag line.
@@ -1253,7 +1253,7 @@ where they were found."
                            (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)))
+                  (progress-reporter-update progress-reporter (point)))
                 table)))
     table))
 
@@ -1433,11 +1433,12 @@ where they were found."
     (tags-with-face 'highlight (princ buffer-file-name))
     (princ "':\n\n"))
   (goto-char (point-min))
-  (let ((point-max (/ (float (point-max)) 100.0)))
+  (let ((progress-reporter (make-progress-reporter
+                            (format "Making tags apropos buffer for `%s'..."
+                                    string)
+                            (point-min) (point-max))))
     (while (re-search-forward string nil t)
-      (message "Making tags apropos buffer for `%s'...%d%%"
-               string
-               (/ (point) point-max))
+      (progress-reporter-update progress-reporter (point))
       (beginning-of-line)
 
       (let* ( ;; Get the local value in the tags table