From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 29 Mar 2024 19:32:48 +0000 (-0400)
Subject: * lisp/cedet/semantic/tag.el (semantic-tag): New type
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c03994212fafd7e3a7fcec1fabc251fc1fe00251;p=emacs.git

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

(cherry picked from commit dd3e13469d75851f3d7907e3373d45032382a5f5)
---

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))