* semantic/db-find.el

[gnu-emacs] / lisp / cedet / semantic / db-find.el

diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index ca6a8fbf5caa9ee4a5c7c2e3da3479072ee63bc3..15ef3b092385d6d823fbc84df0f10328fd6f3828 100644 (file)
--- 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