1 files changed, 0 insertions, 43 deletions
diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index dcd27e786eb..6101f3a8b66 100644
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -59,8 +59,6 @@
 (require 'semantic/find)
 
 (declare-function semantic-add-system-include "semantic/dep")
-(declare-function data-debug-new-buffer "data-debug")
-(declare-function data-debug-insert-thing "data-debug")
 
 (eval-and-compile
   ;; Hopefully, this will allow semanticdb-ebrowse to compile under
@@ -668,47 +666,6 @@ Return a list of tags."
     nil
     ))
 
-;;; TESTING
-;;
-;; This is a complex bit of stuff.  Here are some tests for the
-;; system.
-
-(defun semanticdb-ebrowse-run-tests ()
-  "Run some tests of the semanticdb-ebrowse system.
-All systems are different.  Ask questions along the way."
-  (interactive)
-  (let ((doload nil))
-    (when (y-or-n-p "Create a system database to test with? ")
-      (call-interactively 'semanticdb-create-ebrowse-database)
-      (setq doload t))
-    ;;  Should we load in caches
-    (when (if doload
-	      (y-or-n-p "New database created.  Reload system databases? ")
-	    (y-or-n-p "Load in all system databases? "))
-      (semanticdb-load-ebrowse-caches)))
-  ;; Ok, databases were creatd.  Lets try some searching.
-  (when (not (or (eq major-mode 'c-mode)
-		 (eq major-mode 'c++-mode)))
-    (error "Please make your default buffer be a C or C++ file, then
-run the test again..")
-    )
-
-  )
-
-(defun semanticdb-ebrowse-dump ()
-  "Find the first loaded ebrowse table, and dump out the contents."
-  (interactive)
-  (require 'data-debug)
-  (let ((db semanticdb-database-list)
-	(ab nil))
-    (while db
-      (when (semanticdb-project-database-ebrowse-p (car db))
-	(setq ab (data-debug-new-buffer "*EBROWSE Database*"))
-	(data-debug-insert-thing (car db) "*" "")
-	(setq db nil)
-	)
-      (setq db (cdr db)))))
-
 (provide 'semantic/db-ebrowse)
 
 ;;; semantic/db-ebrowse.el ends here