1196 |
(find-tag-tag-order . (tag-exact-file-name-match-p |
(find-tag-tag-order . (tag-exact-file-name-match-p |
1197 |
tag-file-name-match-p |
tag-file-name-match-p |
1198 |
tag-exact-match-p |
tag-exact-match-p |
1199 |
|
tag-implicit-name-match-p |
1200 |
tag-symbol-match-p |
tag-symbol-match-p |
1201 |
tag-word-match-p |
tag-word-match-p |
1202 |
tag-partial-file-name-match-p |
tag-partial-file-name-match-p |
1506 |
;; We are not on the explicit tag name, but perhaps it follows. |
;; We are not on the explicit tag name, but perhaps it follows. |
1507 |
(looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001")))) |
(looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001")))) |
1508 |
|
|
1509 |
|
;; t if point is at a tag line that has an implicit name. |
1510 |
|
;; point should be just after a string that matches TAG. |
1511 |
|
(defun tag-implicit-name-match-p (tag) |
1512 |
|
;; Look at the comment of the make_tag function in lib-src/etags.c for |
1513 |
|
;; a textual description of the four rules. |
1514 |
|
(and (string-match "^[^ \t()=,;]+$" tag) ;rule #1 |
1515 |
|
(looking-at "[ \t()=,;]?\177") ;rules #2 and #4 |
1516 |
|
(save-excursion |
1517 |
|
(backward-char (1+ (length tag))) |
1518 |
|
(looking-at "[\n \t()=,;]")))) ;rule #3 |
1519 |
|
|
1520 |
;; t if point is at a tag line that matches TAG as a symbol. |
;; t if point is at a tag line that matches TAG as a symbol. |
1521 |
;; point should be just after a string that matches TAG. |
;; point should be just after a string that matches TAG. |
1522 |
(defun tag-symbol-match-p (tag) |
(defun tag-symbol-match-p (tag) |