From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 7 Sep 2009 16:34:35 +0000 (+0000)
Subject: lisp/cedet/semantic/sort.el (semantic-tag-external-class-default)
X-Git-Tag: emacs-pretest-23.1.90~1091^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb631f173214ee8c0d6d3591669a01c6dce0240e;p=emacs.git

lisp/cedet/semantic/sort.el (semantic-tag-external-class-default)
(semantic-tag-external-member-children-default): Require
semantic/db-mode instead of checking if semanticdb-minor-mode-p is
bound.
---

diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el
index a4448a8415b..d8761b49d43 100644
--- a/lisp/cedet/semantic/sort.el
+++ b/lisp/cedet/semantic/sort.el
@@ -548,7 +548,7 @@ include the default behavior, and merely extend your own."
 Optional argument USEDB specifies if the semantic database is used.
 See `semantic-tag-external-member-children' for details."
   (if (and usedb
-	   (fboundp 'semanticdb-minor-mode-p)
+	   (require 'semantic/db-mode)
 	   (semanticdb-minor-mode-p)
 	   (require 'semantic/db-find))
       (let ((m (semanticdb-find-tags-external-children-of-type
@@ -578,7 +578,7 @@ likely derived, then this function is needed."
 (defun semantic-tag-external-class-default (tag)
   "Return a list of real tags that faux TAG might represent.
 See `semantic-tag-external-class' for details."
-  (if (and (fboundp 'semanticdb-minor-mode-p)
+  (if (and (require 'semantic/db-mode)
 	   (semanticdb-minor-mode-p))
       (let* ((semanticdb-search-system-databases nil)
 	     (m (semanticdb-find-tags-by-class