Mercurial > emacs
changeset 8081:6099d3d43685
(tag-exact-match-p): Test for point sitting after the explicit tag name
itself.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 28 Jun 1994 20:21:43 +0000 |
| parents | fa224a1d7aa1 |
| children | 215cfbab6d72 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Tue Jun 28 19:17:25 1994 +0000 +++ b/lisp/progmodes/etags.el Tue Jun 28 20:21:43 1994 +0000 @@ -1149,7 +1149,10 @@ ;; 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")