Mercurial > emacs

diff lisp/vc-hg.el @ 78167:252b7f091c04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-hg-workfile-unchanged-p): New function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 20 Jul 2007 06:54:40 +0000
parents 516805bc7988
children 86c8d81f944f
line wrap: on
line diff
--- a/lisp/vc-hg.el	Thu Jul 19 23:51:28 2007 +0000
+++ b/lisp/vc-hg.el	Fri Jul 20 06:54:40 2007 +0000
@@ -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 @@
 (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)))