Commit 46de1c5a authored by Masatake YAMATO's avatar Masatake YAMATO
Browse files

(etags-tags-completion-table): Show parsing progress.

parent a6e7bdf1
......@@ -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>
......
......@@ -1248,7 +1248,11 @@ where they were found."
(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 @@ where they were found."
\\([-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))
......
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