diff options
| author | Chong Yidong | 2009-09-07 16:34:35 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-09-07 16:34:35 +0000 |
| commit | bb631f173214ee8c0d6d3591669a01c6dce0240e (patch) | |
| tree | 55b202d8be3d7d31d027373cf0fc99c45f44dafb | |
| parent | 663d4a979ba33c09f57ff82ac5603e06871a0990 (diff) | |
| download | emacs-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.el | 4 |
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." | |||
| 548 | Optional argument USEDB specifies if the semantic database is used. | 548 | Optional argument USEDB specifies if the semantic database is used. |
| 549 | See `semantic-tag-external-member-children' for details." | 549 | See `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. |
| 580 | See `semantic-tag-external-class' for details." | 580 | See `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 |