diff options
Diffstat (limited to 'lisp/cedet/semantic/db-global.el')
-rw-r--r-- | lisp/cedet/semantic/db-global.el | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el index 1b3be12a5fb..c45ed16eabf 100644 --- a/lisp/cedet/semantic/db-global.el +++ b/lisp/cedet/semantic/db-global.el @@ -216,40 +216,6 @@ Optional argument TAGS is a list of tags to search. Like `semanticdb-find-tags-for-completion-method' for global." (semanticdb-find-tags-for-completion-method table prefix tags)) -;;; TEST -;; -;; Here is a testing fcn to try out searches via the GNU Global database. -(defvar semanticdb-test-gnu-global-startfile "~/src/global-5.7.3/global/global.c" - "File to use for testing.") - -(defun semanticdb-test-gnu-global (searchfor &optional standardfile) - "Test the GNU Global semanticdb. -Argument SEARCHFOR is the text to search for. -If optional arg STANDARDFILE is non nil, use a standard file w/ global enabled." - (interactive "sSearch For Tag: \nP") - - (require 'data-debug) - (save-excursion - (when standardfile - (save-match-data - (set-buffer (find-file-noselect semanticdb-test-gnu-global-startfile)))) - - (condition-case err - (semanticdb-enable-gnu-global-in-buffer) - (error (if standardfile - (error err) - (save-match-data - (set-buffer (find-file-noselect semanticdb-test-gnu-global-startfile))) - (semanticdb-enable-gnu-global-in-buffer)))) - - (let* ((db (semanticdb-project-database-global "global")) - (tab (semanticdb-file-table db (buffer-file-name))) - (result (semanticdb-deep-find-tags-for-completion-method tab searchfor)) - ) - (data-debug-new-buffer "*SemanticDB Gnu Global Result*") - (data-debug-insert-thing result "?" "") - ))) - (provide 'semantic/db-global) ;; Local variables: |