diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2008-02-19 11:45:54 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2008-02-19 11:45:54 +0000 |
| commit | b038f9fb955989de99795504c8facfac21e5fbd9 (patch) | |
| tree | 1d880d8100877acee98b18d5087794edb2176065 /lisp/vc-svn.el | |
| parent | 72c70417d339899b322f59c924e65fccb769d27d (diff) | |
| download | emacs-b038f9fb955989de99795504c8facfac21e5fbd9.tar.gz | |
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.
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 868680375cb..92374be84fa 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -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', |