Mercurial > emacs
view test/cedet/ede-tests.el @ 105329:fa9bcb68092e
(vc-resynch-window): Don't revert a buffer which has no associated file.
(vc-resynch-buffer): Use vc-dir-buffers.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 01 Oct 2009 03:32:25 +0000 |
parents | d0cdad3e21eb |
children | 7f4c7f5c0eba |
line wrap: on
line source
;;; From ede-locate: (require 'ede/locate) ;;; TESTS ;; ;; Some testing routines. (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 "]")) )