Function: vc-arch-root

vc-arch-root is a byte-compiled function defined in vc-arch.el.gz.

Signature

(vc-arch-root FILE)

Documentation

Return the root directory of an Arch project, if any.

Aliases

vc-arch-responsible-p

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-arch.el.gz
(defun vc-arch-root (file)
  "Return the root directory of an Arch project, if any."
  (or (vc-file-getprop file 'arch-root)
      ;; Check the =tagging-method, in case someone naively manually
      ;; creates a {arch} directory somewhere.
      (let ((root (vc-find-root file "{arch}/=tagging-method")))
	(when root
	  (vc-file-setprop
	   file 'arch-root root)))))