73 |
(put 'Arch 'vc-functions nil) |
(put 'Arch 'vc-functions nil) |
74 |
|
|
75 |
;;;###autoload (defun vc-arch-registered (file) |
;;;###autoload (defun vc-arch-registered (file) |
76 |
;;;###autoload (let ((dir file)) |
;;;###autoload (if (vc-find-root file "{arch}/=tagging-method") |
77 |
;;;###autoload (while (and (stringp dir) |
;;;###autoload (progn |
78 |
;;;###autoload (not (equal |
;;;###autoload (load "vc-arch") |
79 |
;;;###autoload dir (setq dir (file-name-directory dir)))) |
;;;###autoload (vc-arch-registered file)))) |
|
;;;###autoload dir) |
|
|
;;;###autoload (setq dir (if (file-directory-p |
|
|
;;;###autoload (expand-file-name "{arch}" dir)) |
|
|
;;;###autoload t (directory-file-name dir)))) |
|
|
;;;###autoload (if (eq dir t) |
|
|
;;;###autoload (progn |
|
|
;;;###autoload (load "vc-arch") |
|
|
;;;###autoload (vc-arch-registered file))))) |
|
80 |
|
|
81 |
(defun vc-arch-add-tagline () |
(defun vc-arch-add-tagline () |
82 |
"Add an `arch-tag' to the end of the current file." |
"Add an `arch-tag' to the end of the current file." |
178 |
(defun vc-arch-root (file) |
(defun vc-arch-root (file) |
179 |
"Return the root directory of a Arch project, if any." |
"Return the root directory of a Arch project, if any." |
180 |
(or (vc-file-getprop file 'arch-root) |
(or (vc-file-getprop file 'arch-root) |
181 |
(vc-file-setprop |
(vc-file-setprop |
182 |
file 'arch-root |
;; Check the =tagging-method, in case someone naively manually |
183 |
(let ((root nil)) |
;; creates a {arch} directory somewhere. |
184 |
(while (not (or root |
file 'arch-root (vc-find-root file "{arch}/=tagging-method")))) |
|
(equal file (setq file (file-name-directory file))) |
|
|
(null file))) |
|
|
;; Check the =tagging-method, in case someone naively manually |
|
|
;; creates a {arch} directory somewhere. |
|
|
(if (file-exists-p (expand-file-name "{arch}/=tagging-method" file)) |
|
|
(setq root file) |
|
|
(setq file (directory-file-name file)))) |
|
|
root)))) |
|
185 |
|
|
186 |
(defun vc-arch-register (file &optional rev comment) |
(defun vc-arch-register (file &optional rev comment) |
187 |
(if rev (error "Explicit initial revision not supported for Arch")) |
(if rev (error "Explicit initial revision not supported for Arch")) |