Commit 63aeffd5 authored by Roland McGrath's avatar Roland McGrath
Browse files

(tag-exact-match-p): Test for point sitting after the explicit tag name

parent 1d8f6c8c
......@@ -1149,7 +1149,10 @@ See documentation of variable `tags-file-name'."
;; point should be just after a string that matches TAG.
(defun tag-exact-match-p (tag)
;; The match is really exact if there is an explicit tag name.
(or (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001"))
(or (and (eq (char-after (point)) ?\001)
(eq (char-after (- (point) (length tag)) ?\177)))
;; We are not on the explicit tag name, but perhaps it follows.
(looking-at (concat "[^\177\n]*\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")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment