From 41bf0c48448f989ed144a26e97e5ba40f9855f84 Mon Sep 17 00:00:00 2001 From: David Engster Date: Mon, 12 Mar 2012 21:51:17 +0100 Subject: * semantic/db-find.el (semanticdb-find-translate-path-brutish-default): If we don't yet have a proper table for PATH, use `semanticdb-current-database' instead (bug #10343). --- lisp/cedet/semantic/db-find.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/cedet/semantic/db-find.el') 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 -- cgit v1.2.1