From: Po Lu <luangruo@yahoo.com>
Date: Fri, 5 Apr 2024 05:54:07 +0000 (+0800)
Subject: Define missing type in semantic/db-find.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7bbafcdd060367f43b9d954143816ed86175841;p=emacs.git

Define missing type in semantic/db-find.el

* lisp/cedet/semantic/db-find.el
(semanticdb-find-result-with-nil): New deftype.

(cherry picked from commit c57b50569cca1b0d1cc85446ecf6be11326c2a4d)
---

diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 551f86a792e..920588abf89 100644
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -928,6 +928,9 @@ but should be good enough for debugging assertions."
 	    (semanticdb-find-result-length result)
 	    (length result))))
 
+(cl-deftype semanticdb-find-result-with-nil ()
+  '(satisfies semanticdb-find-result-with-nil-p))
+
 (defun semanticdb-find-result-with-nil-p (resultp)
   "Non-nil if RESULTP is in the form of a semanticdb search result.
 The value nil is valid where a TABLE usually is, but only if the TAG