Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
63aeffd5
Commit
63aeffd5
authored
Jun 28, 1994
by
Roland McGrath
Browse files
(tag-exact-match-p): Test for point sitting after the explicit tag name
itself.
parent
1d8f6c8c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
1 deletion
+4
-1
lisp/progmodes/etags.el
lisp/progmodes/etags.el
+4
-1
No files found.
lisp/progmodes/etags.el
View file @
63aeffd5
...
...
@@ -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
")
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment