+2007-07-20 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-hg.el (vc-hg-workfile-unchanged-p): New function.
+
2007-07-19 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-registered): Replace if with when.
;; * 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
(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)))