martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix exact matching of Ada tags by 'M-.'

Browse Source 
* lisp/progmodes/etags.el (tag-exact-match-p): Support Ada tags
that have "/x" qualifiers appended to them.  (Bug#78489)
This commit is contained in:
Eli Zaretskii
2025-05-27 13:50:12 +03:00
parent 93934b645b
commit 5883ceedc8
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/etags.el
View File

@@ -1649,7 +1649,10 @@ Point should be just after a string that matches TAG."
(or (and (eq (char-after (point)) ?\001)
(eq (char-after (- (point) (length tag) 1)) ?\177))
;; We are not on the explicit tag name, but perhaps it follows.
(looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001"))))
(looking-at (concat "[^\177\n]*\177"
(regexp-quote tag)
;; The optional "/x" part is for Ada tags.
"\\(/[fpsbtk]\\)?\001"))))
;; t if point is at a tag line that has an implicit name.
;; point should be just after a string that matches TAG.