Mercurial > emacs
changeset 104476:1da44e87bf90
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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 07 Sep 2009 16:34:35 +0000 |
| parents | 9787b67f48d7 |
| children | d634157e6a91 |
| files | lisp/cedet/semantic/sort.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cedet/semantic/sort.el Mon Sep 07 16:33:20 2009 +0000 +++ b/lisp/cedet/semantic/sort.el Mon Sep 07 16:34:35 2009 +0000 @@ -548,7 +548,7 @@ 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 @@ (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