1229 |
|
|
1230 |
(defun etags-tags-completion-table () |
(defun etags-tags-completion-table () |
1231 |
(let ((table (make-vector 511 0)) |
(let ((table (make-vector 511 0)) |
1232 |
(point-max (/ (float (point-max)) 100.0)) |
(progress-reporter |
1233 |
(msg-fmt (format |
(make-progress-reporter |
1234 |
"Making tags completion table for %s...%%d%%%%" |
(format "Making tags completion table for %s..." buffer-file-name) |
1235 |
buffer-file-name))) |
(point-min) (point-max)))) |
1236 |
(save-excursion |
(save-excursion |
1237 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1238 |
;; This monster regexp matches an etags tag line. |
;; This monster regexp matches an etags tag line. |
1253 |
(buffer-substring (match-beginning 5) (match-end 5)) |
(buffer-substring (match-beginning 5) (match-end 5)) |
1254 |
;; No explicit tag name. Best guess. |
;; No explicit tag name. Best guess. |
1255 |
(buffer-substring (match-beginning 3) (match-end 3))) |
(buffer-substring (match-beginning 3) (match-end 3))) |
1256 |
(message msg-fmt (/ (point) point-max))) |
(progress-reporter-update progress-reporter (point))) |
1257 |
table))) |
table))) |
1258 |
table)) |
table)) |
1259 |
|
|
1433 |
(tags-with-face 'highlight (princ buffer-file-name)) |
(tags-with-face 'highlight (princ buffer-file-name)) |
1434 |
(princ "':\n\n")) |
(princ "':\n\n")) |
1435 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1436 |
(let ((point-max (/ (float (point-max)) 100.0))) |
(let ((progress-reporter (make-progress-reporter |
1437 |
|
(format "Making tags apropos buffer for `%s'..." |
1438 |
|
string) |
1439 |
|
(point-min) (point-max)))) |
1440 |
(while (re-search-forward string nil t) |
(while (re-search-forward string nil t) |
1441 |
(message "Making tags apropos buffer for `%s'...%d%%" |
(progress-reporter-update progress-reporter (point)) |
|
string |
|
|
(/ (point) point-max)) |
|
1442 |
(beginning-of-line) |
(beginning-of-line) |
1443 |
|
|
1444 |
(let* ( ;; Get the local value in the tags table |
(let* ( ;; Get the local value in the tags table |