(vc-hg-workfile-unchanged-p): New function.

This commit is contained in:
Dan Nicolaescu 2007-07-20 03:15:19 +00:00
parent 7c0953573e
commit a272e668c9
2 changed files with 6 additions and 1 deletions

View file

@ -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.

View file

@ -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 @@ 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)))