* 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 18a0b4caee2d5848878c4a0e64063c432f4858fd..a0843dd5df9dde8e02d75406e191edd541e1bc3f 100644 (file)
--- 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))