[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c57b50569cc 1/4: Define missing type in semantic/db-find.el
From: |
Po Lu |
Subject: |
master c57b50569cc 1/4: Define missing type in semantic/db-find.el |
Date: |
Fri, 5 Apr 2024 03:04:35 -0400 (EDT) |
branch: master
commit c57b50569cca1b0d1cc85446ecf6be11326c2a4d
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Define missing type in semantic/db-find.el
* lisp/cedet/semantic/db-find.el
(semanticdb-find-result-with-nil): New deftype.
---
lisp/cedet/semantic/db-find.el | 3 +++
1 file changed, 3 insertions(+)
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