New functions for finding the administrative directory in VC.

[bpt/emacs.git] / lisp / vc / vc-arch.el

diff --git a/lisp/vc/vc-arch.el b/lisp/vc/vc-arch.el
index e9c65b4..6ef66f2 100644 (file)
--- a/lisp/vc/vc-arch.el
+++ b/lisp/vc/vc-arch.el
@@ -227,6 +227,10 @@ Only the value `maybe' can be trusted :-(."
          (vc-file-setprop
           file 'arch-root root)))))
 
+(defun vc-arch-find-admin-dir (file)
+  "Return the administrative directory of FILE."
+  (expand-file-name "{arch}" (vc-arch-root file)))
+
 (defun vc-arch-register (files &optional rev _comment)
   (if rev (error "Explicit initial revision not supported for Arch"))
   (dolist (file files)