diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2009-08-31 02:16:34 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2009-08-31 02:16:34 +0000 |
commit | 978c25c6a0b0d88568abb91c871363758c678da0 (patch) | |
tree | d1c11f92c2edc3509678acf5f4207b9971e5ef6f /lisp/cedet/semantic/find.el | |
parent | 691a065ecb6920eb73f2a72229b8c803202a00b6 (diff) | |
download | emacs-978c25c6a0b0d88568abb91c871363758c678da0.tar.gz |
cedet/semantic/chart.el: Don't require semantic/find.
cedet/semantic/complete.el: Don't require semantic/find.
cedet/semantic/decorate.el: Require semantic/tag-file.
(semantic-set-tag-folded-isearch): Require semantic/find.
cedet/semantic/dep.el: Change semantic--dependency-find-file-on-path
into a macro, to avoid compiler warning.
Defvar ede-minor-mode and ede-object.
Declare ede-system-include-path.
cedet/semantic/doc.el: Require semantic/tag-file and semantic/find.
cedet/semantic/edit.el: Require semantic/find and semantic/format.
cedet/semantic/find.el: Defvar semantic-case-fold.
Require semantic.
(semantic-find-tags-external-children-of-type): Require semantic/sort.
(semantic-find-tags-by-scope-protection-default): Require semantic/tag-ls.
cedet/semantic/format.el: Require semantic/tag-ls.
eval-when-compile semantic/find.
(semantic-format-tag-name): Move up to avoid compiler error.
(semantic-format-tag-prototype): Move up to avoid compiler error.
(semantic--format-tag-parent-tree): Require semantic/tag-file.
(semantic-format-tag-short-doc-default): Require semantic/doc.
Diffstat (limited to 'lisp/cedet/semantic/find.el')
-rw-r--r-- | lisp/cedet/semantic/find.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/find.el b/lisp/cedet/semantic/find.el index a01b2ae2b22..4751c3e1c2a 100644 --- a/lisp/cedet/semantic/find.el +++ b/lisp/cedet/semantic/find.el @@ -1,4 +1,4 @@ -;;; find.el --- Search routines for Semantic +;;; semantic/find.el --- Search routines for Semantic ;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008, 2009 ;;; Free Software Foundation, Inc. @@ -44,6 +44,7 @@ ;; ;; 4) ... +(require 'semantic) (require 'semantic/tag) ;;; Code: @@ -335,6 +336,8 @@ See `semantic-tag-protected-p' for details on which tags are returned." semantic-tag-class type)) (:override))) +(declare-function semantic-tag-protected-p "semantic/tag-ls") + (defun semantic-find-tags-by-scope-protection-default (scopeprotection parent &optional table) "Find all tags accessable by SCOPEPROTECTION. @@ -348,6 +351,7 @@ See `semantic-tag-protected-p' for details on which tags are returned." (if (not table) (setq table (semantic-tag-type-members parent))) (if (null scopeprotection) table + (require 'semantic/tag-ls) (semantic--find-tags-by-macro (not (semantic-tag-protected-p (car tags) scopeprotection parent)) table))) @@ -389,10 +393,13 @@ attempting to do completions." ;;; Specialty Searches ;; +(declare-function semantic-tag-external-member-parent "semantic/sort") + (defun semantic-find-tags-external-children-of-type (type &optional table) "Find all tags in whose parent is TYPE in TABLE. These tags are defined outside the scope of the original TYPE declaration. TABLE is a tag table. See `semantic-something-to-tag-table'." + (require 'semantic/sort) (semantic--find-tags-by-macro (equal (semantic-tag-external-member-parent (car tags)) type) @@ -792,4 +799,4 @@ Optional argument ARG is the number of iterations to run." (provide 'semantic/find) -;;; semantic-find.el ends here +;;; semantic/find.el ends here |