diff options
author | Xue Fuqiao <xfq.free@gmail.com> | 2013-10-05 07:47:00 +0800 |
---|---|---|
committer | Xue Fuqiao <xfq.free@gmail.com> | 2013-10-05 07:47:00 +0800 |
commit | 34ca0f4c796bca424a0e3033b419eb15b79a2f59 (patch) | |
tree | c40ad07ca64fa3356c371ac4ace7c9df14d9d9a6 /lisp/vc/vc-svn.el | |
parent | a27c1b72c5d444f591b179d89ab329faee4555b6 (diff) | |
download | emacs-34ca0f4c796bca424a0e3033b419eb15b79a2f59.tar.gz |
New functions for finding the administrative directory in VC.
* vc/vc-svn.el (vc-svn-find-admin-dir):
* vc/vc-rcs.el (vc-rcs-find-admin-dir):
* vc/vc-mtn.el (vc-mtn-find-admin-dir):
* vc/vc-cvs.el (vc-cvs-find-admin-dir):
* vc/vc-arch.el (vc-arch-find-admin-dir): New functions.
Diffstat (limited to 'lisp/vc/vc-svn.el')
-rw-r--r-- | lisp/vc/vc-svn.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index 36f27548123..1fd51dd2148 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el @@ -361,6 +361,10 @@ FILE is a file wildcard, relative to the root directory of DIRECTORY." "Return the list of ignored files." ) +(defun vc-svn-find-admin-dir (file) + "Return the administrative directory of FILE." + (expand-file-name vc-svn-admin-directory (vc-svn-root file))) + (defun vc-svn-checkout (file &optional editable rev) (message "Checking out %s..." file) (with-current-buffer (or (get-file-buffer file) (current-buffer)) |