diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-07-20 03:15:19 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-07-20 03:15:19 +0000 |
| commit | a272e668c92ad0a4e0d986f7536862c3abb52bc2 (patch) | |
| tree | 97299eb7a3285ceed2a640893ebbb547cc0ac377 /lisp/vc-hg.el | |
| parent | 7c0953573e29df316e98d8efef4f55848bfcc448 (diff) | |
| download | emacs-a272e668c92ad0a4e0d986f7536862c3abb52bc2.tar.gz | |
(vc-hg-workfile-unchanged-p): New function.
Diffstat (limited to 'lisp/vc-hg.el')
| -rw-r--r-- | lisp/vc-hg.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index b2b72f38c29..596e95a70b2 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -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))) |