From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 8 Oct 2004 17:34:01 +0000 (+0000)
Subject: (etags-tags-completion-table): Use progress reporter.
X-Git-Tag: ttn-vms-21-2-B4~4669
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f124fb5287c38e0f8e507a2b8a5edd4d0cfb42c;p=emacs.git

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

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