From 70e2f6c752f2d83bd013406a96b809572203e8fa Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 2 May 2008 17:47:25 +0000 Subject: Clean up vc*-revision-granularity and vc*-checkout-model. --- lisp/vc-hg.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lisp/vc-hg.el') 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))) -- cgit v1.2.1