From bff505de682be5342a31fd0c8ac0f9d9711fa814 Mon Sep 17 00:00:00 2001 From: xscript Date: Sun, 15 May 2011 22:16:47 +0200 Subject: [PATCH] Synchronize cedet/semantic with Emacs. --- test/manual/cedet/cedet/semantic/db-global.el | 27 +++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 test/manual/cedet/cedet/semantic/db-global.el diff --git a/test/manual/cedet/cedet/semantic/db-global.el b/test/manual/cedet/cedet/semantic/db-global.el new file mode 100644 index 00000000000..91a39eddee5 --- /dev/null +++ b/test/manual/cedet/cedet/semantic/db-global.el @@ -0,0 +1,27 @@ +(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") + + (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 "?" "")))) -- 2.39.5