diff options
Diffstat (limited to 'lisp/cedet/semantic/db-find.el')
| -rw-r--r-- | lisp/cedet/semantic/db-find.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el index ca6a8fbf5ca..15ef3b09238 100644 --- a/lisp/cedet/semantic/db-find.el +++ b/lisp/cedet/semantic/db-find.el @@ -325,8 +325,10 @@ Default action as described in `semanticdb-find-translate-path'." (cond ((null path) semanticdb-current-database) ((semanticdb-table-p path) (oref path parent-db)) (t (let ((tt (semantic-something-to-tag-table path))) - ;; @todo - What does this DO ??!?! - (with-current-buffer (semantic-tag-buffer (car tt)) + (if tt + ;; @todo - What does this DO ??!?! + (with-current-buffer (semantic-tag-buffer (car tt)) + semanticdb-current-database) semanticdb-current-database)))))) (apply #'nconc |