diff options
| author | David Engster <dengste@eml.cc> | 2012-03-12 21:51:17 +0100 |
|---|---|---|
| committer | David Engster <dengste@eml.cc> | 2012-03-12 21:51:17 +0100 |
| commit | 41bf0c48448f989ed144a26e97e5ba40f9855f84 (patch) | |
| tree | 24305b7fa8371263375a5d328d167cecacbcf809 /lisp/cedet/semantic/db-find.el | |
| parent | 225979daf9b031d8f2ae82f2bd7a98de234dc0f2 (diff) | |
| download | emacs-41bf0c48448f989ed144a26e97e5ba40f9855f84.tar.gz | |
* 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).
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 |