diff options
Diffstat (limited to 'lisp/cedet/semantic/analyze.el')
-rw-r--r-- | lisp/cedet/semantic/analyze.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index 000193d4a55..07bf1c7f621 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -295,18 +295,10 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error ;; In some cases the found TMP is a type, ;; and we can use it directly. (cond ((semantic-tag-of-class-p tmp 'type) - ;; update the miniscope when we need to analyze types directly. - (when miniscope - (let ((rawscope - (apply 'append - (mapcar 'semantic-tag-type-members - tagtype)))) - (oset miniscope fullscope rawscope))) - ;; Now analyze the type to remove metatypes. (or (semantic-analyze-type tmp miniscope) tmp)) (t - (semantic-analyze-tag-type tmp scope)))) + (semantic-analyze-tag-type tmp miniscope)))) (typefile (when tmptype (semantic-tag-file-name tmptype))) @@ -336,6 +328,11 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error (semantic--tag-put-property tmp :filename fname)) (setq tag (cons tmp tag)) (setq tagtype (cons tmptype tagtype)) + (when miniscope + (let ((rawscope + (apply 'append + (mapcar 'semantic-tag-type-members tagtype)))) + (oset miniscope fullscope rawscope))) ) (setq s (cdr s))) |