From e7bbafcdd060367f43b9d954143816ed86175841 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Fri, 5 Apr 2024 13:54:07 +0800 Subject: [PATCH] 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) --- 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 -- 2.39.5