From 727bdea1064ff35f32e3055ba20d807625e5fe05 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 20 Jul 2007 06:54:40 +0000 Subject: [PATCH] (vc-hg-workfile-unchanged-p): New function. --- lisp/ChangeLog | 4 ++++ lisp/vc-hg.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4aeeddf5633..74984f03789 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-07-20 Dan Nicolaescu + + * vc-hg.el (vc-hg-workfile-unchanged-p): New function. + 2007-07-19 Dan Nicolaescu * vc-hg.el (vc-hg-registered): Replace if with when. diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 8df01a2cc60..946a47e8f72 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -45,7 +45,7 @@ ;; * workfile-version (file) OK ;; - latest-on-branch-p (file) ?? ;; * checkout-model (file) OK -;; - workfile-unchanged-p (file) ?? +;; - workfile-unchanged-p (file) OK ;; - mode-line-string (file) NOT NEEDED ;; - dired-state-info (file) OK ;; STATE-CHANGING FUNCTIONS @@ -392,6 +392,10 @@ REV is the revision to check out into WORKFILE." (defun vc-hg-checkout-model (file) '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))) + (defun vc-hg-dired-state-info (file) "Hg-specific version of `vc-dired-state-info'." (let ((hg-state (vc-state file))) -- 2.39.5