Mercurial > emacs
comparison lisp/vc-svn.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 | 5d58981e6690 |
| children | 99f1bbaca4b7 |
comparison
equal
deleted
inserted
replaced
| 91955:e3aedad81f5f | 91956:7bc22dad5f9a |
|---|---|
| 529 | 529 |
| 530 (defcustom vc-svn-program "svn" | 530 (defcustom vc-svn-program "svn" |
| 531 "Name of the svn executable." | 531 "Name of the svn executable." |
| 532 :type 'string | 532 :type 'string |
| 533 :group 'vc) | 533 :group 'vc) |
| 534 | |
| 535 (defun vc-svn-root (dir) | |
| 536 (vc-find-root dir vc-svn-admin-directory t)) | |
| 534 | 537 |
| 535 (defun vc-svn-command (buffer okstatus file-or-list &rest flags) | 538 (defun vc-svn-command (buffer okstatus file-or-list &rest flags) |
| 536 "A wrapper around `vc-do-command' for use in vc-svn.el. | 539 "A wrapper around `vc-do-command' for use in vc-svn.el. |
| 537 The difference to vc-do-command is that this function always invokes `svn', | 540 The difference to vc-do-command is that this function always invokes `svn', |
| 538 and that it passes `vc-svn-global-switches' to it before FLAGS." | 541 and that it passes `vc-svn-global-switches' to it before FLAGS." |