Mercurial > emacs
changeset 55715:7c48b959658d
(etags-tags-completion-table): Show parsing progress.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Fri, 21 May 2004 08:36:46 +0000 |
| parents | 7b91de4a810f |
| children | 59087bd465d3 |
| files | lisp/ChangeLog lisp/progmodes/etags.el |
| diffstat | 2 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 21 07:25:07 2004 +0000 +++ b/lisp/ChangeLog Fri May 21 08:36:46 2004 +0000 @@ -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>
--- a/lisp/progmodes/etags.el Fri May 21 07:25:07 2004 +0000 +++ b/lisp/progmodes/etags.el Fri May 21 08:36:46 2004 +0000 @@ -1248,7 +1248,11 @@ (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 @@ \\([-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))