Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/cedet/semantic/tag.el (semantic-tag): New type

Browse source
This commit is contained in:
Stefan Monnier 2024-03-29 15:32:48 -04:00
parent 42322257ba
commit dd3e13469d
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/cedet/semantic/tag.el
View file

@ -349,6 +349,9 @@ If TAG is unlinked, but has a :filename property, then that is used."
;; If an error occurs, then it most certainly is not a tag.
(error nil)))
;; Used in `semantic-utest-ia.el'.
(cl-deftype semantic-tag () `(satisfies semantic-tag-p))
(defsubst semantic-tag-of-class-p (tag class)
"Return non-nil if class of TAG is CLASS."
(eq (semantic-tag-class tag) class))