[Emacs-diffs] /srv/bzr/emacs/trunk r107592: * semantic/db-find.el

[David Engster]

------------------------------------------------------------
revno: 107592
committer: David Engster <address@hidden>
branch nick: trunk
timestamp: Mon 2012-03-12 21:51:17 +0100
message:
  * 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).
modified:
  lisp/cedet/ChangeLog
  lisp/cedet/semantic/db-find.el

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2012-03-11 20:29:14 +0000
+++ b/lisp/cedet/ChangeLog      2012-03-12 20:51:17 +0000
@@ -1,3 +1,10 @@
+2012-03-12  David Engster  <address@hidden>
+
+       * 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).
+
 2012-03-11  David Engster  <address@hidden>
 
        * semantic/wisent/javascript.el (js-mode): Define `js-mode' as

=== modified file 'lisp/cedet/semantic/db-find.el'
--- a/lisp/cedet/semantic/db-find.el    2012-01-19 07:21:25 +0000
+++ b/lisp/cedet/semantic/db-find.el    2012-03-12 20:51:17 +0000
@@ -325,8 +325,10 @@
         (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