mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

Make sure all backends support vc-BACKEND-root.

Browse source 
* 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.
This commit is contained in:
Thien-Thi Nguyen 2008-02-19 11:45:54 +00:00
parent 72c70417d3
commit b038f9fb95
5 changed files with 35 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/vc-svn.el
View file

@ -532,6 +532,9 @@ NAME is assumed to be a URL."
:type 'string
:group 'vc)
(defun vc-svn-root (dir)
(vc-find-root dir vc-svn-admin-directory t))
(defun vc-svn-command (buffer okstatus file-or-list &rest flags)
"A wrapper around `vc-do-command' for use in vc-svn.el.
The difference to vc-do-command is that this function always invokes `svn',