Commit a272e668 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

parent 7c095357
......@@ -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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment