diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-29 15:32:48 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-29 15:32:48 -0400 |
| commit | dd3e13469d75851f3d7907e3373d45032382a5f5 (patch) | |
| tree | 362a70864b99e7e285ef1c706712bfcdae706366 | |
| parent | 42322257ba9abdb8bcc2aceb34a27f261df070aa (diff) | |
| download | emacs-dd3e13469d75851f3d7907e3373d45032382a5f5.tar.gz | |
* lisp/cedet/semantic/tag.el (semantic-tag): New type
| -rw-r--r-- | lisp/cedet/semantic/tag.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index 18a0b4caee2..a0843dd5df9 100644 --- a/lisp/cedet/semantic/tag.el +++ b/lisp/cedet/semantic/tag.el @@ -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)) |