comparison lisp/vc-cvs.el @ 91956:7bc22dad5f9a

Make sure all backends support vc-BACKEND-root. * vc-hooks.el (vc-find-root): Take optional arg INVERT. If non-nil, reverse the sense of the check. * vc-rcs.el (vc-rcs-root): New func. * vc-cvs.el (vc-cvs-root): New func. * vc-svn.el (vc-svn-root): New func.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Tue, 19 Feb 2008 11:43:17 +0000
parents 28dc34f6a246
children 12326ccb66d6
comparison
equal deleted inserted replaced
91955:e3aedad81f5f 91956:7bc22dad5f9a
730 730
731 731
732 ;;; 732 ;;;
733 ;;; Internal functions 733 ;;; Internal functions
734 ;;; 734 ;;;
735
736 (defun vc-cvs-root (dir)
737 (vc-find-root dir "CVS" t))
735 738
736 (defun vc-cvs-command (buffer okstatus files &rest flags) 739 (defun vc-cvs-command (buffer okstatus files &rest flags)
737 "A wrapper around `vc-do-command' for use in vc-cvs.el. 740 "A wrapper around `vc-do-command' for use in vc-cvs.el.
738 The difference to vc-do-command is that this function always invokes `cvs', 741 The difference to vc-do-command is that this function always invokes `cvs',
739 and that it passes `vc-cvs-global-switches' to it before FLAGS." 742 and that it passes `vc-cvs-global-switches' to it before FLAGS."