aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2009-09-07 16:34:35 +0000
committerChong Yidong2009-09-07 16:34:35 +0000
commitbb631f173214ee8c0d6d3591669a01c6dce0240e (patch)
tree55b202d8be3d7d31d027373cf0fc99c45f44dafb
parent663d4a979ba33c09f57ff82ac5603e06871a0990 (diff)
downloademacs-bb631f173214ee8c0d6d3591669a01c6dce0240e.tar.gz
emacs-bb631f173214ee8c0d6d3591669a01c6dce0240e.zip
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.
-rw-r--r--lisp/cedet/semantic/sort.el4
1 files changed, 2 insertions, 2 deletions
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."
548Optional argument USEDB specifies if the semantic database is used. 548Optional argument USEDB specifies if the semantic database is used.
549See `semantic-tag-external-member-children' for details." 549See `semantic-tag-external-member-children' for details."
550 (if (and usedb 550 (if (and usedb
551 (fboundp 'semanticdb-minor-mode-p) 551 (require 'semantic/db-mode)
552 (semanticdb-minor-mode-p) 552 (semanticdb-minor-mode-p)
553 (require 'semantic/db-find)) 553 (require 'semantic/db-find))
554 (let ((m (semanticdb-find-tags-external-children-of-type 554 (let ((m (semanticdb-find-tags-external-children-of-type
@@ -578,7 +578,7 @@ likely derived, then this function is needed."
578(defun semantic-tag-external-class-default (tag) 578(defun semantic-tag-external-class-default (tag)
579 "Return a list of real tags that faux TAG might represent. 579 "Return a list of real tags that faux TAG might represent.
580See `semantic-tag-external-class' for details." 580See `semantic-tag-external-class' for details."
581 (if (and (fboundp 'semanticdb-minor-mode-p) 581 (if (and (require 'semantic/db-mode)
582 (semanticdb-minor-mode-p)) 582 (semanticdb-minor-mode-p))
583 (let* ((semanticdb-search-system-databases nil) 583 (let* ((semanticdb-search-system-databases nil)
584 (m (semanticdb-find-tags-by-class 584 (m (semanticdb-find-tags-by-class