1248 |
|
|
1249 |
|
|
1250 |
(defun etags-tags-completion-table () |
(defun etags-tags-completion-table () |
1251 |
(let ((table (make-vector 511 0))) |
(let ((table (make-vector 511 0)) |
1252 |
|
(point-max (/ (float (point-max)) 100.0)) |
1253 |
|
(msg-fmt (format |
1254 |
|
"Making tags completion table for %s...%%d%%%%" |
1255 |
|
buffer-file-name))) |
1256 |
(save-excursion |
(save-excursion |
1257 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1258 |
;; This monster regexp matches an etags tag line. |
;; This monster regexp matches an etags tag line. |
1268 |
\\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\ |
\\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\ |
1269 |
\\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n" |
\\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n" |
1270 |
nil t) |
nil t) |
1271 |
(intern (if (match-beginning 5) |
(intern (prog1 (if (match-beginning 5) |
1272 |
;; There is an explicit tag name. |
;; There is an explicit tag name. |
1273 |
(buffer-substring (match-beginning 5) (match-end 5)) |
(buffer-substring (match-beginning 5) (match-end 5)) |
1274 |
;; No explicit tag name. Best guess. |
;; No explicit tag name. Best guess. |
1275 |
(buffer-substring (match-beginning 3) (match-end 3))) |
(buffer-substring (match-beginning 3) (match-end 3))) |
1276 |
|
(message msg-fmt (/ (point) point-max))) |
1277 |
table))) |
table))) |
1278 |
table)) |
table)) |
1279 |
|
|
1871 |
(or gotany |
(or gotany |
1872 |
(error "File %s not in current tags tables" file))))) |
(error "File %s not in current tags tables" file))))) |
1873 |
(with-current-buffer "*Tags List*" |
(with-current-buffer "*Tags List*" |
1874 |
|
(require 'apropos) |
1875 |
(apropos-mode) |
(apropos-mode) |
1876 |
(setq buffer-read-only t))) |
(setq buffer-read-only t))) |
1877 |
|
|
1890 |
(funcall tags-apropos-function regexp)))) |
(funcall tags-apropos-function regexp)))) |
1891 |
(etags-tags-apropos-additional regexp)) |
(etags-tags-apropos-additional regexp)) |
1892 |
(with-current-buffer "*Tags List*" |
(with-current-buffer "*Tags List*" |
1893 |
|
(require 'apropos) |
1894 |
(apropos-mode) |
(apropos-mode) |
1895 |
;; apropos-mode is derived from fundamental-mode and it kills |
;; apropos-mode is derived from fundamental-mode and it kills |
1896 |
;; all local variables. |
;; all local variables. |