diff options
Diffstat (limited to 'lisp/cedet/semantic/db-typecache.el')
| -rw-r--r-- | lisp/cedet/semantic/db-typecache.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el index fe9d2d21056..7e0f52fe0b3 100644 --- a/lisp/cedet/semantic/db-typecache.el +++ b/lisp/cedet/semantic/db-typecache.el @@ -114,7 +114,7 @@ Said object must support `semantic-reset' methods.") (defun semanticdb-typecache-length (thing) "How long is THING? Debugging function." - (cond ((semanticdb-typecache-child-p thing) + (cond ((cl-typep thing 'semanticdb-typecache) (length (oref thing stream))) ((semantic-tag-p thing) (length (semantic-tag-type-members thing))) |