diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-02 17:47:25 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-02 17:47:25 +0000 |
| commit | 70e2f6c752f2d83bd013406a96b809572203e8fa (patch) | |
| tree | e38864b2dbbf1211b146915a10da6b481d840df6 /lisp/vc-arch.el | |
| parent | 991ae4e4f8e8cefd2a83e7ffb4148d358c750486 (diff) | |
| download | emacs-70e2f6c752f2d83bd013406a96b809572203e8fa.tar.gz | |
Clean up vc*-revision-granularity and vc*-checkout-model.
Diffstat (limited to 'lisp/vc-arch.el')
| -rw-r--r-- | lisp/vc-arch.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 1573e55bd78..18eddb6f9c7 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -57,6 +57,11 @@ (eval-when-compile (require 'vc) (require 'cl)) +;;; Properties of the backend + +(defun vc-arch-revision-granularity () 'repository) +(defun vc-arch-checkout-model (files) 'implicit) + ;;; ;;; Customization options ;;; @@ -369,8 +374,6 @@ Return non-nil if FILE is unchanged." (message "There are unresolved conflicts in %s" (file-name-nondirectory rej)))))) -(defun vc-arch-checkout-model (file) 'implicit) - (defun vc-arch-checkin (files rev comment) (if rev (error "Committing to a specific revision is unsupported")) ;; FIXME: This implementation probably only works for singleton filesets |