mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Masatake YAMATO 2004-05-21 08:36:46 +00:00
parent a6e7bdf171
commit 46de1c5a15
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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>

17
lisp/progmodes/etags.el
View File

@ -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))