procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define missing type in semantic/db-find.el

Browse source 
* lisp/cedet/semantic/db-find.el
(semanticdb-find-result-with-nil): New deftype.
This commit is contained in:
Po Lu 2024-04-05 13:54:07 +08:00
parent 3968b36ae0
commit c57b50569c
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/cedet/semantic/db-find.el
View file

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