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-hg.el | |
| parent | 991ae4e4f8e8cefd2a83e7ffb4148d358c750486 (diff) | |
| download | emacs-70e2f6c752f2d83bd013406a96b809572203e8fa.tar.gz | |
Clean up vc*-revision-granularity and vc*-checkout-model.
Diffstat (limited to 'lisp/vc-hg.el')
| -rw-r--r-- | lisp/vc-hg.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index a4e08e021ee..85ea6e13b07 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -47,7 +47,7 @@ ;; - dir-state (dir) OK ;; * working-revision (file) OK ;; - latest-on-branch-p (file) ?? -;; * checkout-model (file) OK +;; * checkout-model (files) OK ;; - workfile-unchanged-p (file) OK ;; - mode-line-string (file) NOT NEEDED ;; - prettify-state-info (file) OK @@ -131,8 +131,8 @@ ;;; Properties of the backend -(defun vc-hg-revision-granularity () - 'repository) +(defun vc-hg-revision-granularity () 'repository) +(defun vc-hg-checkout-model (files) 'implicit) ;;; State querying functions @@ -444,8 +444,6 @@ REV is the revision to check out into WORKFILE." (vc-hg-command t 0 file "cat" "-r" rev) (vc-hg-command t 0 file "cat"))))) -(defun vc-hg-checkout-model (files) 'implicit) - ;; Modelled after the similar function in vc-bzr.el (defun vc-hg-workfile-unchanged-p (file) (eq 'up-to-date (vc-hg-state file))) |