Commit 4f124fb5 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

(etags-tags-apropos): Likewise.
parent d0e2acce
......@@ -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
(etags-tags-apropos): Likewise.
2004-10-08 Alan Mackenzie <>
* isearch.el (isearch-yank-line): C-y yanks to next EOL, not end
......@@ -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%%%%"
(format "Making tags completion table for %s..." buffer-file-name)
(point-min) (point-max))))
(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)))
......@@ -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'..."
(point-min) (point-max))))
(while (re-search-forward string nil t)
(message "Making tags apropos buffer for `%s'...%d%%"
(/ (point) point-max))
(progress-reporter-update progress-reporter (point))
(let* ( ;; Get the local value in the tags table
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment