mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(tag-exact-match-p): Return true if TAG is the explicit tag name.

Browse Source
This commit is contained in:
Roland McGrath 1993-09-06 22:15:21 +00:00
parent 338819bcd0
commit add3312f11
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/progmodes/etags.el
View File

@ -1070,10 +1070,14 @@ See documentation of variable `tags-file-name'."
;; t if point is at a tag line that matches TAG "exactly".
;; point should be just after a string that matches TAG.
(defun tag-exact-match-p (tag)
(and (looking-at "\\Sw.*\177") (looking-at "\\S_.*\177") ;not a symbol char
(save-excursion
(backward-char (1+ (length tag)))
(and (looking-at "\\Sw") (looking-at "\\S_")))))
;; The match is really exact if there is an explicit tag name.
(or (looking-at (concat "[^\177]*\177" (regexp-quote tag) "\001"))
;; We also call it "exact" if it is surrounded by symbol boundaries.
;; This is needed because etags does not always generate explicit names.
(and (looking-at "\\Sw.*\177") (looking-at "\\S_.*\177")
(save-excursion
(backward-char (1+ (length tag)))
(and (looking-at "\\Sw") (looking-at "\\S_"))))))
;; t if point is at a tag line that matches TAG as a word.
;; point should be just after a string that matches TAG.