(etags-tags-completion-table): Use progress reporter.

(etags-tags-apropos): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0dd9c28a362f53893b7f41ec05076a70df870ce..5f6bdb7f99ce2da2d317c55ed544f0e24d47455e 100644 (file)
--- 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 ddbd2ce6f35dadf5df4135cc5eeb24048dc2657c..0569d26db612c37f544f6014a012ae3c9cdd0078 100644 (file)
--- 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