From 614a6bb1eeed171e8f58ea7dd97f8738d8e48ff0 Mon Sep 17 00:00:00 2001 From: xscript Date: Tue, 26 Apr 2011 02:32:46 +0200 Subject: [PATCH] Synchronize base 'cedet/ede' with Emacs --- test/manual/cedet/cedet/ede/locate.el | 51 +++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 test/manual/cedet/cedet/ede/locate.el diff --git a/test/manual/cedet/cedet/ede/locate.el b/test/manual/cedet/cedet/ede/locate.el new file mode 100644 index 00000000000..be3d1b3ef0f --- /dev/null +++ b/test/manual/cedet/cedet/ede/locate.el @@ -0,0 +1,51 @@ +(defun ede-locate-test-locate (file) + "Test EDE Locate on FILE using LOCATE type. +The search is done with the current EDE root." + (interactive "sFile: ") + (let ((loc (ede-locate-locate + "test" + :root (ede-project-root-directory + (ede-toplevel))))) + (data-debug-new-buffer "*EDE Locate ADEBUG*") + (ede-locate-file-in-project loc file) + (data-debug-insert-object-slots loc "]")) + ) + +(defun ede-locate-test-global (file) + "Test EDE Locate on FILE using GNU Global type. +The search is done with the current EDE root." + (interactive "sFile: ") + (let ((loc (ede-locate-global + "test" + :root (ede-project-root-directory + (ede-toplevel))))) + (data-debug-new-buffer "*EDE Locate ADEBUG*") + (ede-locate-file-in-project loc file) + (data-debug-insert-object-slots loc "]")) + ) + +(defun ede-locate-test-idutils (file) + "Test EDE Locate on FILE using ID Utils type. +The search is done with the current EDE root." + (interactive "sFile: ") + (let ((loc (ede-locate-idutils + "test" + :root (ede-project-root-directory + (ede-toplevel))))) + (data-debug-new-buffer "*EDE Locate ADEBUG*") + (ede-locate-file-in-project loc file) + (data-debug-insert-object-slots loc "]")) + ) + +(defun ede-locate-test-cscope (file) + "Test EDE Locate on FILE using CScope type. +The search is done with the current EDE root." + (interactive "sFile: ") + (let ((loc (ede-locate-cscope + "test" + :root (ede-project-root-directory + (ede-toplevel))))) + (data-debug-new-buffer "*EDE Locate ADEBUG*") + (ede-locate-file-in-project loc file) + (data-debug-insert-object-slots loc "]")) + ) -- 2.39.2