CEDET (development tools) package merged.

[gnu-emacs] / lisp / cedet / semantic / db-find.el

diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 6d4fdc1fcc5151ce8bd21d98c8b0e8695591e1b6..e7ce7fcbdef78f3f3f77b80cd9993529f46c1a88 100644 (file)
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -118,7 +118,6 @@
 (require 'semantic/db)
 (require 'semantic/db-ref)
 (eval-when-compile
-  (require 'eieio)
   (require 'semantic/find))
 
 ;;; Code:
@@ -602,6 +601,7 @@ isn't in memory yet."
   "Load an unloaded file in FILENAME using the default semanticdb loader."
   (semanticdb-file-table-object filename))
 
+;; The creation of the overload occurs above.
 (defun semanticdb-find-table-for-include-default (includetag &optional table)
   "Default implementation of `semanticdb-find-table-for-include'.
 Uses `semanticdb-current-database-list' as the search path.
@@ -720,6 +720,7 @@ Included databases are filtered based on `semanticdb-find-default-throttle'."
 \f
 ;;; Perform interactive tests on the path/search mechanisms.
 ;;
+;;;###autoload
 (defun semanticdb-find-test-translate-path (&optional arg)
   "Call and output results of `semanticdb-find-translate-path'.
 With ARG non-nil, specify a BRUTISH translation.
@@ -747,7 +748,7 @@ for details on how this list is derived."
   (semantic-fetch-tags)
   (require 'data-debug)
   (let* ((semanticdb-find-default-throttle
-         (if (featurep 'semanticdb-find)
+         (if (featurep 'semantic/db-find)
              (remq 'unloaded semanticdb-find-default-throttle)
            nil))
         (start (current-time))
@@ -760,6 +761,7 @@ for details on how this list is derived."
 
     (data-debug-insert-stuff-list p "*")))
 
+;;;###autoload
 (defun semanticdb-find-adebug-lost-includes ()
   "Translate the current path, then display the lost includes.
 Examines the variable `semanticdb-find-lost-includes'."
@@ -837,17 +839,6 @@ Examines the variable `semanticdb-find-lost-includes'."
       (data-debug-new-buffer "*SEMANTICDB scanned-includes ADEBUG*")
       (data-debug-insert-stuff-list scanned "*")
       )))
-\f
-;;; FIND results and edebug
-;;
-(eval-after-load "cedet-edebug"
-  '(progn
-     (cedet-edebug-add-print-override
-      '(semanticdb-find-results-p object)
-      '(semanticdb-find-result-prin1-to-string object) )
-     ))
-
-
 \f
 ;;; API Functions
 ;;
@@ -1336,12 +1327,14 @@ Returns a table of all matching tags."
    "In TABLE, find all occurances of tags whose parent is the PARENT type.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
+   (require 'semantic/find)
    (semantic-find-tags-external-children-of-type parent (or tags (semanticdb-get-tags table))))
 
 (defmethod semanticdb-find-tags-subclasses-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
    "In TABLE, find all occurances of tags whose parent is the PARENT type.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
+   (require 'semantic/find)
    (semantic-find-tags-subclasses-of-type parent (or tags (semanticdb-get-tags table))))
 
 ;;; Deep Searches
@@ -1374,6 +1367,7 @@ Return a table of all matching tags."
 ;; Local variables:
 ;; generated-autoload-file: "loaddefs.el"
 ;; generated-autoload-feature: semantic/loaddefs
+;; generated-autoload-load-name: "semantic/db-find"
 ;; End:
 
 ;;; semantic/db-find.el ends here