# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1184901319 0
# Node ID 7179773d9d7f0c1caa75ed4b81fd9bc49f8ff7d0
# Parent  a0277e80d1918c5ba0ee0dcb74948d3881bfb3d8
(vc-hg-workfile-unchanged-p): New function.

diff -r a0277e80d191 -r 7179773d9d7f lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jul 20 01:53:08 2007 +0000
+++ b/lisp/ChangeLog	Fri Jul 20 03:15:19 2007 +0000
@@ -11,6 +11,7 @@
 	(vc-hg-checkout): Re-enable.
 	(vc-hg-create-repo): Fix typos.
 	(vc-hg-print-log): Fix for multiple files.
+	(vc-hg-workfile-unchanged-p): New function.
 
 	* vc.el: Fix typo.
 	(vc-print-log): Fix call to print-log.
diff -r a0277e80d191 -r 7179773d9d7f lisp/vc-hg.el
--- a/lisp/vc-hg.el	Fri Jul 20 01:53:08 2007 +0000
+++ b/lisp/vc-hg.el	Fri Jul 20 03:15:19 2007 +0000
@@ -48,7 +48,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
@@ -407,6 +407,10 @@
 (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)))